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PRODUCT CODE: AC-8496D=-MC 
PRODUCT NAME: CZDHNDO DH11 DATA RELIAB TST 
DATE: JAN 1979 


MAINTAINER: DIAGNOSTIC ENGINEERING 


COPYRIGHT (C) 1976, 1979 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 


ON 
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
oe ner OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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SEQ 0004 
GENERAL PROGRAM DESCRIPTION 


‘'CZDHND’* IS A GENERAL PURPOSE TEST AND EXERCISER 
PROGRAM FOR THE DH11, 16. LINE ASYNCHRONOUS LINE MULTIPLEXOR. 
IT CONSISTS OF THREE INDEPENDENT SUB-PROGRAMS THAT MAY BE 
USED FOR ACCEPTANCE TESTING, INSTALLATION CHECKOUT, AND 
CORRECTIVE MAINTENANCE OF THE DH11 SUB-SYSTEM. 


SUBPROGRAM 1 DH11 DATA RELIABILITY TESTS 


ONCE CONFIGURED BY THE AUTOSIZER OR BY INITIAL CONSOLE DIALOGUE 
THIS PROGRAM CAN TEST UP TO 16. DH11°S. ALL LINES ON EACH DH11 ARE 


THESE ERROR STATISTICS TABLES ARE DUMPED ON THE CONSOLE DEVICE 
TO PROVIDE HISTORICAL EVIDENCE OF THE DATA RELIABILITY OF EACH 
DHi1. REFER TO SECTION 4.0 FOR A DETAILED DESCRIPTION OF THE 
ERROR STATISTICS PROVIDED. THIS SUB-PROGRAM IS NORMALLY 
SELECTED FOR OVERALL DH CHECKOUT. 


SUB-PROGRAM 2. DH11 :'NGLE LINE ECHO TEST 


oan SS a So Ge Se Se SD Oy Cap a ED Ge Gs Oe 








THIS PROGRAM PROVIDES THE MEANS OF TESTING ANY LINE ON 
ANY DH11 BY USING AN ASYNCHRONOUS TERMINAL DEVICE (VT50,LA36 ETO) 
CONNECTED TO THE LINE UNDER TEST. THIS SUB-PROGRAM WOULD NORMALLY 
BE SELECTED WHEN A PROBLEM IS ISOLATED TO A SPECIFIC LINE. 
IT HAS TWO MODES OF OPERATION, SEND MODE OR ECHO MODE: 


SEND MODE : THE USER TYPES AN ASCIZ BUFFER IN ON 
THE CONSOLE DEVICE AND THEN TYPES A 
UNIQUE CONTROL CHARACTER TO SEND THIS 
BUFFER TO THE DH11 TEST TERMINAL. . 


THE USER CAN THEN COMPARE THE TWO IMAGES 
FOR ACCURACY OF TRANSMISSION. 


ECHO MODE : THE USER TYPES IN ON THE DHi1 TEST TERMINAL 
AND CAN OBSERVE EACH CHAR TYPED BEING 
ECHOED ON THE TERMINAL. BY TYPING 
A UNI TROL CHARACTER THE PROGRAM 
WILL ECHO THE ENTIRE BUFFER TYPED IN 
UP TO THAT POINT. 
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ia tetas SUBPROGRAM 3 DH11 DATA PATTERNS/CABLE TESTIS 

195 

196 THIS PROGRAM PROVIDES THE MEANS OF TESTING ANY LINE 

197 ON ANY DH11 USING AN H315 TEST CONNECTOR TO TERMINATE THE 

198 LINE UNDER TEST. THE USER CAN SPECIFY BUFFER SIZE AND LINE 

199 PARAMETERS PRIOR TO SELECTING ONE OF THE FOLLOWING 

ss DATA PATTERNS FOR TRANSMISSION, RECEPTION, AND ERROR CHECKING: 

202 A. ALTERNATING 1/0 PATTERN 

203 B. BINARY UP COUNT PATTERN 

204 C. BINARY DOWN COUNT PATTERN 

205 D. RANDOM DATA PATTERN 

206 E. CUMULATIVE SEQUENCE OF (A) THRU (D) 

207 F. SINGLE CHARACTER PATTERN 

G. TYPED IN BUFFER PATTERN 


0 ALL ERRORS DETECTED ARE REPORTED AS THEY OCCUR AND A SWITCH 
1 REGISTER OPTION ALLOWS LOCKING ON A PARTICULAR PATTERN. THIS 
2 SUB=PROGRAM WOULD NORMALLY BE SELECTED FOR TROUBLESHOOT ING 

Z A SPECIFIC PROBLEM. 


we 
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1.1.4 


KARKKKKKK 


CZDHND CORE MEMORY MAP 
Semmes — mm a ee a 
BIRO OIOTOI ORT KOTOR tte 
OO0000: * o 
* VECTOR AREA * 
* * 
OIRO OIRO IORI OORT TOTO IO IO Te te tte 
* * 
* STACK AREA x 
x * 
SES TAITLELILALILLLELL ILL LLL LL 
001100: * * 
* SYSMAC CONSTANTS * 
* AND VARIABLES * 
* * 
TL ALLELLLAILLLLLLILLL LLL LLL 
BEGIN: * . 
START-UP CODE * 
x * 
HI TR REE KK Kh hh 
STDH1: * * 
* DH11 DATA RELIABILITY * 
* TESTS * 
& * 
eK EERE EEEREKEEREERAKEKKA KKK 
ECHO: * » 
* DH11 SINGLE LINE * 
* ECHO TESTS * 
* * 
KKK RARER ER RRKERRERRRREREEKEREKKE 
EXPAT: * * 
* DH11 SINGLE LINE * 
® PATTERNS/CABLE TESTS * 
* * 
KK KKK REE REEERREEEERERRERRERERE 
SEOP: * * 
* STANDARD SYSMAC * 
* UTILITY ROUTINES * 
* ~ 
REREKERREEERE EERE RK RRERREERRER 
CKRST1: * * 
* COMMON DH11 UTILITIES * 
* x 
RARER EERE KR ERR ERR RERKERERER EAE 
DHADR: * ® 
* DH11 PROGRAM CONSTANTS * 
* AND VARIABLES a 
* * 
KR RRR RARER RRR RRERERERE EERE 
* * 
kiki hh tht kkheRRR ARE 
* CONT. * * CONT. * 


RRREREAEREKRY 


SEQ 0006 


CZDHN=D MACY11 30A(1052) 27=-DEC-78 15:31 PAGE 8 
CZDHND P11 27=DEC=78 15:28 





-269 kakkk kkk KKKKKKKK 
270 * CONT. * * CONT. * 
271 hk Rk ek Kk hh hk 
e7e * * 

273 TORII TO TOI ITO IO SOTO TOIT ie toe to 

ors EM1: * x 

275 * SYSMAC ERROR MESSAGE * 

276 * BUFFERS * 
277 . 

278 TORI IOI TIO TOT TTT TOSI TOTO tte 
279 TETLE: * * 
280 * DH11 MISCELLANEOUS * 

281 * MESSAGE BUFFERS * 
282 * * 
283 1k ee See Re ROCIO OT Th te te te te 
284 RBUF : * x 
285 * TRANSMIT AND RECEIVE * 
286 * DATA BUFFERS * 
288 KEKE ETEK KKKKh 
289 ENBUF S: 
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SEQ 0008 
SYSTEM REQUIREMENTS 


we ee ee ee eee ee ee ee oe 


A. ANY PDP11 COMPUTER SYSTEM WITH 12k OF CORE MEMORY 


AND A CONSOLE TERMINAL DEVICE (VT50,LA36 ETC) 


NOTE: FOR PAPER TAPE SYSTEMS USING THE PDP11 
ABSOLUTE LOADER THE PROGRAM WILL LOAD AND RUN 
IN 8K OF CORE 


B. A DH11 16. LINE ASYNCHRONUUS SERIAL LINE MULTIPLEXOR 
C. A DH11 TERMINAL DEVICE (LA36,VT5C ETC.) CECHO TESTS ONLYJ 


D. TEST CONNECTORS AND MODULE (THE NO. OF EACH “ia 
1S DETERMINED BY THE PARTICULAR TEST APPLICATION. 
REFER TO SECTION 6.1 ag A COMPLETE DISCUSSION OF THE 
MAINTENANCE CONNECTORS.) 


1. H315_ TEST CONNECTOR 
2. 48611 TEST CONNECTOR 
3. M974 TEST MODULE 


SOFTWARE REQUIREMENTS 


A. ACT11/ THE PROGRAM CONTAINS THE NECESSARY ‘‘SOFTWARE HOOKS*’ 
APT11 FOR INTERFACING TO THE ACT11/APT11 MANUFACTURING 

SYSTEMS. THE PROGRAM CAN BE RUN AS PART 
OF A QUICK VERIFY “‘CHAIN’’ SINCE IT CONTAINS 
AN AUTOSIZER. 

B. XXDP THE PROGRAM MAY BE LOADED FROM ANY ‘‘XXDP** 
MEDIA. IF AUTO-STARTED BY THE “XXDF*" MONITOR 
CONTROL WILL BE TRANSFERRED TO THE DATA REL- 
[ABILITY PROGRAM. 


RELATED DOCUMENTS AND STANDARDS 


C1 SYSMAC. SML 

. MD-11-DZQXA ‘‘XXDP** USER'S GUIDE 

- DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 
PROGRAMMING PRACTICES DOC NO. 175-003-009-00 


DIAGNOSTIC HIERARCHY PREREQUISITES 
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CZDHND ASSUMES THAT THE FOLLOWING DIAGNOSTICS 
TEC TER. RUN PRIOR TO ITS EXECUTION AND THAT NO ERRORS wERE 
A. CPU/CORE MEMORY DIAGNOSTICS 
B. MD-11-DZDHM DH11 BASIC DIAGNOSTIC 
FAILURE ASSUMPTIONS 
CZDHND ASSUMES THAT THE DH11 HARDWARE VERIFIED 
BY MD-11-DZDHM, THE BASIC DH11 DIAGNOSTIC, IS FUNCTIONING 
ERROR FREE. 
OPERATING INSTRUCTIONS 
LOADING AND STARTING PROCEDURES 
LOADING PROCEDURES 


A. PAPER TAPE SYSTEMS 


USE THE STANDARD PDP11 ABSOLUTE LOADER PROCEDURE FOR 
LOADING PAPER TAPES. AFTER LOADING THE PROGRAM MUST BE MAN- 
UALLY STARTED. (REFER TO SECTION 2.1.2) 


8. “XXDP'' SYSTEMS (REFER TO "XXDP’* USER'S GUIDE MD-11-DZQxA) 


1. MOUNT THE APPROPRIATE MEDIUM (DECTAPE.DISK ETC) 
CONTAINING THE ‘'XXDP"’ MONITOR AND CZDHND. 
2. BOOT THE SYSTEM TO LOAD THE MONITOR 
3. ONCE LOADED THE “XXDP"" MONITOR PRINTS AN INTRO- 
DUCTORY MESSAGE AND RESPONDS WITH 
4. TYPE: “CZDHND'' FOLLOWED BY EITHER A <C(R> 
CARRIAGE RETURN OR AN “‘ALTMODE"’ 
TO LOAD THE PROGRAM. 


IF A <CR> WAS TYPED THE USER MUST MANUALLY 
START THE PROGRAM AFTER LOADING. 


IF AN “‘ALTMODE'’ WAS ee THE atin te WILL 
AUTO START THE PROGRAM AT LOCATION 000200(8) 
WHICH oe BEGIN EXECUTION OF THE DATA REL- 
IABILITY PROGRAM. 


NOTE: WHENEVER THE DH11 CONFIGURATION IS CHANGED 
THE DIAGNOSTIC ae BE RELOADED. 


SEQ 0009 
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2.1.2 STARTING PROCEDURES 


THERE ARE FIVE DIFFERENT STARTING ADDRESSES FOR THIS 
PROGRAM DEPENDING UPON WHICH SUB=PROGRAM IS TO BE STARTED. 
THERE ARE THREE FOR THE DATA RELIABILITY PROGRAM AND ONE EACH 
FOR THE ECHO AND DATA PATTERNS TESTS AS DESCRIBED BELOw: 


2.1.2.1 SUB-PROGRAM 1 DH11 DATA RELIABILITY TESTS 


A. TO AUTOMATICALLY START THE PROGRAM USING THE AUTOSIZER 
(START AT LOC 000200(8)) 


fe 


UIE WIPO 
: * 8 


6. 
 - 


S. 10 TYPE 


. DEPRESS 


INSTALL THE REQUIRED TEST CONNECTORS FOR THE 

ry tae TEST APPLICATION (REFER TO SECTION 6.1) 
SET THE HALT/ENABLE SWITCH TO HALT 

SET THE SR=000200(8) 


od 


SET THE $R=000200" CHORST CASE TESTING) 

SET THE SR=000002 (TO TYPE THE DEVICE MAP) 

SET THE SR=000000 (QUICK PASS) 

SET THE SR=000400 (HALT AFTER PARAMETER SET-UP) 


SET THE HALT/ENABLE SWITCH TO ENABLE 
DEPRESS START = THE PROGRAM WILL TEST ALL LINES 
ON ALL DH"S FOUND. 


IN ALL REQUIRED PARAMETERS (START AT LOCATION 000200(8)) 


INSTALL THE REQUIRED TEST CONNECTORS FOR THE 
PARTICULAR TEST APPLICATION. (REFER TO SECTION 6.1) 
SET 3 HALT/ENABLE SWITCH TO HALT 

ET =000200(8) 


DRESS 

SET THE SR=000001 (FOR INPUT DIALOGUE) 
SET THE HALT/ENABLE SWITCH TO ENABLE 
DEPRESS START 
THE WILL PRINT THE TITLE AND ASK FOR THE 
NUMBER OF ea ae BETWEEN VEC:ORS. TYPE EITHER 

A "10°" OR A ''20°* TO INDICATE TEN OR TWENTY ADDRESS 
DISPLACEMENT BETWEEN VECTORS FOLLOWED BY A <CR> 
(CARRIAGE RETURN). 


NOTE: 1. SYSTEMS WHERE THE DM11-8B8 VECTORS 
oe INTERLEAVED WITH THE DH11 VECTORS 
E 20(8) ADDRESSES BETWEEN VECTORS. 


2. STANDARD SYSTEMS HAVE THE DH11 VECTORS 
CONTIGUOUS WITH A 10(8) ADDRESS 
DISPLACEMENT. 


SEQ 0010 


CZDHN=D MACY11 30A(1052) 27-DEC~78 


CZDHND .P11 


27-DEC=78 15:28 


15:31 


PAGE 12 


8. THE PROGRAM WILL ASK FOR THE DEVICE ADPRESS NEXT. 


TYPE IN THE ADDRESS (OCTAL) OF THE FIRST DH11 
IN THE SYSTEM FOLLOWED BY A <CR>. 


IF AN INVALID ADDRESS IS TYPED THE PROGRAM 
WILL TYIPE AN ERROR MESSAGE AND ASK YOU TO 
TRY AGAIN. 


9. THE PROGRAM WILL ASK FOR THE VECTOR ADDRESS. 


TYPE IN THE VECTOR ADDRESS (OCTAL) OF THE FIRST 
DH11 FOLLOWED BY A <CR>. 


IF AN INVALID VECTOR ADDRESS IS TYPED THE 
PROGRAM WILL TYPE AN ERROR MESSAGE AND ASK 
YOU TO TRY AGAIN. 


10. NEXT THE PROGRAM WILL ASK FOR THE DEVICE SELECTION 
PARAMETER. TYPE iN AN OCTAL NO. ENCODED AS FOLLOwS: 


BITOO=1 TEST DH11 #00 
BITO1=1 TEST DH11 401 
BITO2=0 DO NOT TEST DH11 #02 


» BIT15=1 TEST DH11 415 


EXAMPLES: 

177777<CR> TEST ALL 16. DH11‘S 
100000<CR> TEST ONLY DH11 417(8) 
000005<CR> TEST DH11 #00 AND 02 


11. NEXT THE PROGRAM WILL ASK FOR THE LINE SELECTION 
foaraee TYPE AN ENCODED OCTAL NO. AS 


BITOO=1 TEST LINE #00 
BITOI=1 TEST LINE #01 
BITO2=0 DO NOT TEST LINE #02 


BIT1S=1 TEST LINE #15 


EXAMPLES: 

177777<CR> TEST ALL 16. LINES 
100000<CR> TEST LINE 17(8) ONLY 
000005<CR> TEST LINES 00 AND Q2 


IF A <CR> RETURN ONLY IS TYPED THE PROGRAM WILL 
DEFAULT TO 16. LINES. 


REKKRKEKKKEKKER 


NOTE 


REEKKEKRREK 


SEQ 0011 
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C. DEFAULT 


IF MORE THAN ONE DH11_ IS TESTED THE SAME COMBINATION 
OF LINES WILL BE TESTED ON ALL DH11'’S SELECTED. 


- IF SR8=0 THE PROGRAM WILL BEGIN EXECUTION TESTING 


THE FIRST SELECTED LINE OF THE FIRST SELECTED DH11. 
Schoate)” PARA 2.4, 3.0, AND 4.0 FOR ERROR AND STATUS 


IF SR8=1 THE PROGRAM WILL HALT AND TYPE THE FOLLOW- 
ING MESSAGE : 


‘DEPRESS CONTINUE TO START TESTING’’ 


WHEN CONTINUE IS DEPRESSED, THE PROGRAM WILL BEGIN TEST- 
ING AS IN STEP Ves 


THE PURPOSE OF THIS HALT IS TO ALLOW DUMPING 
UPDATED VERSIONS OF THE PROGRAM AFTER THE PARAMETERS 
HAVE BEEN SET UP FOR THE PARTICULAR DH11 SYSTEM. 


PARAMETERS ** (START AT LOC 000204(8)) 


INSTALL THE REQUIRED TEST CONNECTORS FOR THE 
PARTICULAR TEST APPLICATION. REFER TO SECION 6.1. 
SET THE HALT/ENABLE SWITCH TO HALT 

SET THE SR=000204 (8) 

DEPRESS LOAD ADDRESS 

SET THE SR=000200 (WORST CASE TESTING) 


SET THE SR=000000 (QUICK PASS) 


SET THE HALT/ENABLE SWITCH TO ENABLE 
DEPRESS START 


If THIS IS THE INITIAL LOAD, 
THE DEFAULT PARAMETERS ASSUME ONE DH11 
WITH THE FOLLOWING ADDRESS ASSIGNMENTS 


DH11 #0 DEVADR=760020, VECTOR=330. BRS 


OTHERWISE, THE PROGRAM WILL DEFAULT TO THE 
PARAMETERS USED IN THE PREVIOUS EXECUTION. 


fe tay EXECUTION BEGINS. REFER TO SECTIONS Si 4, 3.0. 
4.0 FOR EXECUTION TIMES, ERROR REPORTS, 
SROGRESS REPORTS. 


D. CHANGE DEVICE AND LINE SELECT PARAMETERS (START AT LOC 000210(8)) 


; 


et THE REQUIRED TEST CONNECTORS FOR THE 
ECIFIC TEST APPLICATION. (REFER TO SECTION 6.1) 

ai THE HALT/ENABLE SWITCH TO THE HALT POSITION 

SET THE SR=000210 

- DEPRESS LOAD ADDRESS 


SEQ 0012 
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re4 5. SET THE SR=000200 (WORST CASE TESTING) 

ra SET THE SR=000000 (QUICK PASS) 

a SET THE SR=000400 (HALT AFTER PARAMETER SETUP) 

573 6. SET THE HALT/ENABLE SWITCH TO ENABLE 

574 7. DEPRESS START 

575 8. PROGRAM WILL ASK FOR pay SELECTION PARAMETER 

576 PROCEED AS IN (B-10) ABOVE. 

577 9. PROGRAM WILL ASK FOR LINE SELECTION PARAMETERS. 

578 PROCEED AS IN (B=-11) ABOVE. 

579 10. PROGRAM WILL BEGIN EXECUTION AS DESCRIBED IN 
PARA 2.1.2.1 (B,12) ABOVE 
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$82 2.1.2.2 SUBPROGRAM 2 DH11 SINGLE LINE ECHO TESTS 
584 
585 1. CONNECT THE TEST TERMINAL TO THE DH11 LINE TO BE TESTED 
586 AND POWER IT UP. 
587 2. SET THE HAL T/ ENABLE SWITCH TO HALT : 
588 3. SET THE SR=000214 (8) 
589 4. DEPRESS LOAD ADDRESS 
590 5. SET THE SR=000001 (TC INHIBIT THE AUTOSIZER) 
591 NOTE: WHEN THE AUTOSIZER IS NOT INHIBITED 
592 THAT IS, SR=000000, IT WILL LOAD THE FIRST 
593 DH CSR ADDRESS AND VECTOR FOUND AND TEST THAT 
- 594 DEVICE ONLY. IF ANY OTHER DH'S ARE TO BE TESTED, 
595 THE CSR ADDRESS AND VECTOR MUST BE INPUT 
596 LLY, THAT IS, WITH SR=000001. 
597 6. SET THE HALT/ENABLE SW TO ENABLE 
598 7. DEPRESS START 
599 8. THE PROGRAM WILL TYPE THE TITLE MESSAGES 
600 AND ASK FOR THE NO. OF ADDRESSES BETWEEN VECTORS. 
601 TYPE EITHER A *10'' OR ''20°* AS DESCRIBED IN PARA 2.1.2.1 (B7) ABOVE. 
603 9. TYPE IN THE DEVICE ADDRESS (IN OCTAL) FOLLOWED 
604 BY A <CR> 
606 IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 
607 A DEFAULT ADDRESS OF 760020(8) 
609 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 
610 WILL RESPOND WITH AN ERROR MESSAGE AND ASK 
611 YOU TO TRY AGAIN. 
613 10. NEXT THE PROGRAM WILL ASK FOR A VECTOR ADDRESS 
614 11. TYPE IN THE VECTOR ADDRESS FOLLOWED BY A <CR> 
616 | IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 
617 : A DEFAULT VECTOR ADDR OF 330(8) 
619 IF AN INVALID ADDRESS IS TYPED THE PROGRAM 
620 WILL TYPE AN ERROR MESSAGE AND ASK YOU TO TRY AGAIN. 
622 12. NEXT THE PROGRAM WILL ASK FOR THE LINE NO. TO TEST 
623 13. TYPE IN THE LINE NO. (IN OCTAL 00-17) FOLLOWED 
ose BY A <CR> 
626 IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
627 TO LINE #00. 
629 14. NEXT THE PROGRAM WILL ASK YOU IF YOU WANT TO 
630 CHANGE LINE PARAMETERS. 
631 15. TYPE Fayre FOR YES = ‘N'’ OR <CR> FOR NO FOLLOWED BY 
“a On A <CR>. 
634 IF ‘NO’' THE PROGRAM WILL DEFAULT TO THE LAST 
635 LINE PARAMETERS TYPED IN OR IF THIS IS T 
636 FIRST DIALOGUE IT WILL DEFAULT TO 9600 BAUD 
637 8 BIT CHARS, 1 STOP BIT, AND ODD PARITY. 
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638 
639 16. IF YOU TYPED ‘'Y'' IN (15) DO STEPS (17) THRU (21) 
640 OTHERWISE GO TO STEP (22) 
641 17. WHEN THE PROGRAM ASKS FOR TRANSMITTER SPEED. 
642 TYPE IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
643 FOLLOWED BY A <CR>. 
644 18. WHEN THE PROGRAM ASKS FOR RECEIVER SPEED TyPE 
645 IN ONE OF THE 13, LEGAL SPEEDS IN DECIMAL 
G46 FOLLOWED BY A <CR>. 
648 NOTE: FOR (17) AND (18) IF THE SPEED DESIRED 
649 1S 134.5, TYPE IT WITHOUT THE DECIMAL 
650 POINT. 
652 REFER TO PARA 5.2.3 FOR DESCRIPTION OF SPEED 
653 TABLES. 
655 19. WHEN THE PROGRAM ASKS FOR CHAR LENGTH. TYPE 
656 IN THE NO. DESIRED FOLLOWED BY A <CR> 
657 20. WHEN THE PROGRAM ASKS FOR THE NO. OF STOP BITS 
658 TYPE IN THE NO. DESIRED FOLLOWED BY A <CR> 
659 21. WHEN THE PROGRAM ASKS FOR PARITY. TYPE IN- 
661 0 FOR ODD 
662 E FOR EVEN 
2 <CR> FOR NONE 
665 22. THE PROGRAM WILL NEXT ASK FOR THE FILLER CHARACTER. 
666 TYPE IN THE FILLER CHAR FOLLOWED BY A <CR> 
668 IF, A <CR> ONLY IS TYPED THE PROGRAM WILL USE 
669 "NULL’' FILLER WHICH IS THE NORMAL CASE. 
671 | 23. THE PROGRAM WILL NEXT ASK FOR THE FILLER COUNT. 
672 TYPE IN THE COUNT IN OCTAL FOLLOWED BY A <CR>. 
674 IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
675 TO ONE FILLER. IF A NO. GREATER THAN 4 BITS 
676 1S TYPED THE PROGRAM WILL TRUNCATE IT TO 4 BITS. 
677 THE MAXIMUM COUNT ALLOWED IS 75(10). 
679 24. NEXT THE PROGRAM WILL ASK YOU IF YOU WANT SEND 
680 MODE. TYPE A ‘'Y'' IF YES ~ "N'' OR ‘‘<CR>"' IF NO. 
681 25. IF YOU TYPED "'y'* IN RESPONSE to (24) THE PROGRAM 
682 WILL ASK YOU TO TYPE IN THE SEND BUFFER ON THE 
683 CONSOLE TTY. WHEN YOU WANT TO SEND THIS BUFFER TO 
684 THE TEST TERMINAL ON THE DH11 TYPE A ‘‘CONTROL-C"'. 
686 NOTE: ALWAYS START THE BUFFER WITH A 
687 <CR><LF> TO MAKE IT EASIER TO 
688 INTERPRET THE DISPLAY ON THE DH11 
689 TERMINAL WHEN THE BUFFER IS SENT. 
691 26. AFTER THE TEST BUFFER IS SENT THE PROGRAM WILL 
692 ASK FOR LINE # AGAIN AND YOU REPEAT THE SEQUENCE 


693 STARTING WITH STEP (12) ABOVE. 
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694 27. IF YOU TYPED SOME CHAR OTHER THAN ‘'Y’’ IN RESPONSE 
695 TO (24) THE PROGRAM WILL ASSUME ''ECHO'’ MODE AND 
696 ASK YOU TO TYPE IN ON THE TEST TERMINAL CONNECTED 
697 TO THE LINE UNDER TEST. 

698 | 28. NOW GO TO THE 7EST TERMINAL AND BEGIN TYPING. 

699 (IF THIS IS A REMOTE TERMINAL, ESTABLISH 

700 APPROPRIATE MODEM CONNECTION. 5 

701 EACH CHAR TYPED SHOULD BE ECHOED ON THE DH11 TEST 
702 TERMINAL. IF YOU WANT TO ECHO AN ENTIRE BUFFER 

203 TYPE ‘'CONTROL~E"’ AND THE PROGRAM WILL ECHO THE 

704 ENTIRE BUFFER TYPED IN ON THE TERMINAL TO THAT 

706 29. TO CHANGE LINE # AND PARAMETERS - TYPE ‘‘CONTROL-C’’ 
707 ON THE DH11 TEST TERMINAL AND RETURN TO THE CONSOLE 
708 TERMINAL 

709 30. TO TEST A DIFFERENT DH11 UNIT, THE PROGRAM MUST 
710 BE RESTARTED AT 000214(8). 
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2.1.2.3 SUBPROGRAM 3 DH11 SINGLE LINE DATA PATTERNS/CABLE TESTS 


Co IOS 


1. TERMINATE THE LINE TO BE TESTED WITH AN H315 
TEST CONNECTOR. 
2. SET THE HALT/ENABLE SWITCH TO HALT 
3. SET THE SR=000220(8) 
4. DEPRESS LOAD ADDRESS 
5. SET THE SR=000001 (TO INHIBIT THE AUTOSIZER) 
NOTE: WHEN THE AUTOSIZER IS NOT INHIBITED, 
THAT IS SR=000000, IT WILL LOAD THE FIRST DH 
CSR ADDRESS AND VECTOR FOUND AND TEST THAT 
DEVICE ONLY. IF ANY OTHER DH’S ARE TO BE 
TESTED, THE CSR ADDRESS AND VECTOR MUST BE 
INPUT LY, THAT IS SR=000001. 
- SET THE HALT/ENABLE SW TO ENABLE 
‘ gy 3 START 
- THE PROGRAM WILL TYPE THE TITLE MESSAGES 
— ASK FOR THE NO. OF ADDRESSES BETWEEN VECTORS. 
YPE EITHER A *'10"* OR *'20°’ AS DESCRIBED IN 
PARA Gatseet @ fi. 
9. NEXT THE PROGRAM WILL ASK FOR THE DH11 DEVICE ADDRESS 


TYPE te DEVICE ADDRESS CIN OCTAL) FOLLOWED 
<CR> 
IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 
A DEFAULT ADDRESS OF 760020(8) 
IF AN INVALID ADDRESS IS TYPED THE PROGRAM 


* WILL RESPOND WITH AN ERROR MESSAGE AND ASK 


YOU TO TRY AGAIN. 


10. NEXT THE PROGRAM WILL ASK FOR A VECTOR ADDRESS 
11. TYPE IN THE VECTOR ADDRESS FOLLOWED BY A <CR> 


IF <CR> ONLY IS TYPED THE PROGRAM WILL USE 
A DEFAULT VECTOR ADDR OF 330(8) 


IF AN_INVALID ADDRESS IS TYPED THE 


PROGRAM 
WILL TYPE AN ERROR MESSAGE AND ASK YOU TO TRY AGAIN. 


12.NEXT THE PROGRAM WILL ASK FOR THE LINE NO. TO TEST 
35 ag i LINE NO. CIN OCTAL 00-17) FOLLOWED 


IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
TO LINE #00. 


14. NEXT THE PROGRAM WILL ASK YOU IF YOU WANT TO 
CHANGE LINE PARAMETERS. 
15. TYPE "Y' IF YOU DO = ‘N'' OR <CR> IF YOU DON'T 


IF ‘NO'' THE PROGRAM WILL DEFAULT TO THE LAST 
LINE PARAMETERS TYPED IN OR IF THIS IS THE 
FIRST DIALOGUE IT WILL DEFAULT TO 9600 BAUD, 


SEQ 6017 
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16. 
if, 


18. 


19. 
20. 
ets 


22 


23 


24 


25 


26. 


8 BIT CHARS, 1 STOP BIT, AND ODD PARITY. 


IF YOU TYPED ‘'Y’’ IN (15) DO STEPS (17) THRU (21) 
OTHERWISE GO TO STEP (22) 

WHEN THE PROGRAM ASKS FOR TRANSMITTER SPEED 

TYPE IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 

WHEN THE PROGRAM ASKS FOR RECEIVER SPEED TYPE 

IN ONE OF THE 13. LEGAL SPEEDS IN DECIMAL 
FOLLOWED BY A <CR>. 


NOTE: FOR (17) AND (18) IF THE SPEED DESIRED 
ore TYPE IT WITHOUT THE DECIMAL 


WHEN THE PROGRAM ASKS FOR CHAR LENGTH, TYPE 

IN THE NO. DESIRED FOLLOWED BY A <CR> 

WHEN THE PROGRAM ASKS FOR THE NO. OF STOP BITS 
TYPE IN THE NO. DESIRED FOLLOWED BY A <CR> 
WHEN THE PROGRAM ASKS FOR PARITY, TYPE IN: 


0 FOR ODD 
E FOR EVEN 
<CR> FOR NONE 


FOLLOWED SY A <CR> 
THE PROGRAM WILL NEXT ASK FOR THE FILLER CHARACTER. 
TYPE IN THE FILLER CHAR FOLLOWED BY A <CR> 


IF A <CR> ONLY IS TYPED THE PROGRAM WILL USE 
A “NULL'' FILLER WHICH IS THE NORMAL CASE. 


THE PROGRAM WILL NEXT ASK FOR THE FILLER COUNT. 
TYPE IN THE COUNT IN OCTAL FOLLOWED BY A <CR>. 


IF A <CR> ONLY IS TYPED THE PROGRAM WILL DEFAULT 
TO ONE FILLER. IF A NO. GREATER THAN 4 BITS 

IS _ TYPED THE PROGRAM WILL TRUNCATE IT TO 4 BITS. 
THE MAXIMUM COUNT ALLOWED IS 15. 


NEXT THE PROGRAM WILL ASK YOU THE BUFFER SIZE. 
gr fe DECIMAL NO. BETWEEN 1 TO 512. FOLLOWED 
<CR>. 


IF A <CR> ONLY IS TYPED THE PROGRAM WILi DEFAULT 
TO A BUFFER SIZE OF 256. BYTES. 


IF THE NO. TYPED IS TOO LARGE AN ERROR MESSAGE 
IS TYPED AND YOU ARE ASKED TO TRY AGAIN, 


NEXT THE PROGRAM WILL ASK FOR THE TYPE OF PATTERN 
AND TELL YOU TO SET SRO7=1 IF YOU WANT TO LOCK ON 
THE SELECTED PATTERN. 

TYPE (A,U,D,R,B.S. OR <CR>) TO SELECT THE PATTERN 
AS DESCRIBED BELOw: 


SEG 0018 
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ei. 


28. 


29. 


30. 


A ALTERNATING 1/0 

U BINARY UP COUNT 

D BINARY DOWN COUNT 
R RANDOM DATA 

B TYPED IN BUFFER 


S SINGLE CHARACTER 
<CR> SEQUENCE OF A,U,D, AND R 


IF YOU TYPED A,U,D,R, OR <CR>, THE PROGRAM WILL 
TRANSMIT, RECEIVE, AND DATA CHECK THE SELECTED PATTERN. 


SRO7=1 iT WILL LOCK ON THIS PATTERN 
SRO7=0 IT WILL RETURN TO STEP (24) 


AFTER COMPLETING THE TEST OF THIS 
PATTERN AND ASK FOR A NEW PATTERN. 


RESTART PROCEDURES 


SAME AS THE STARTING PROCEDURES 


SEQ 0019 
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862 2.2 SPECIAL ENVIRONMENTS 
oe ee we | akan nemawnnnense =------ 
864 
865 Sabet ACT11/ THE PROGRAM MAY BE LOADED BY THE ACT11/APT11 
866 APT11 SYSTEMS, AND MAY BE RUN AS PART OF A QUICK 
yard VERIFY CHAIN SINCE THE PROGRAM CONTAINS AN AUTOSIZER. 
869 2.2.2  XXDP THE PROGRAM MAY BE LOADED AND RUN FROM 
870 ANY *'‘XXDP"' MEDIUM PROVIDED THERE IS AT LEAST 
871 . 12K OF CORE. IT MAY BE RUN AS PART OF AN 
872 “XXDP"' CHAIN. 
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874 2.2.3  SWITCHLESS FEATURE 
Re 8 RRS 
877 IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
878 REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOwS 
879 THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
880 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
881 AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
882 REGISTER (LOC. 176) IS USED. 
883 
884 
= CONTROL: 
887 THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
888 REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
889 DOING THE FOLLOWING: 
891 1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
89¢ LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 
894 2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
89° OF THE SOFTWARE SWITCH REGISTER.) 
897 3) AFTER THE **NEW="' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
898 OF THE FOLLOWING AT THF TTY: 
900 A) TYPE A NUMBER TC BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
901 (ONLY OCTAL NUMBERS WILL BE ACCEPTED AND ONLY 6 NUMBERS 
902 WILL BE ALLOWED) 
903 IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
06 REGISTER CONTENTS WILL NOT BE CHANGED. 
906 B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL DO A <CR>. 
907 RETYPE THE DESIRED NUMBER. 
909 2.3 PROGRAM OPTIONS 
ree ee Se Te yy nly ER, ean 
911 
ge 2.3.1 CONSOLE SWITCH REGISTER 
914 
915 
216 A. SUB-PROGRAM 7 DH11 DATA RELIABILITY TESTS 
918 SR15=1 HALT ON ERROR 
919 SR14=1 LOOP ON CURRENTLY SELECTED DH11 
920 SR13=1 INHIBIT ERROR, PROGRESS, AND 
921 PERFORMANCE PRINTOUTS 
922 SRB=1 HALTS AFTER CONFIGURATION TO PERMIT 
923 DUMPING PRECONFIGURED COPIES OF THE 
924 PROGRAM. 
925 SR7=1 PERFORMS A STANDARD PASS(NOT QUICK VERIFY.) 
926 SR7=0 QUICK VERIFY - DO COMPLETE TESTING 


927 ON EACH LINE AT 9600. BAUD ONLY 
928 SR1=1 TYPES DEVICE .MAP GENERATED BY THE 
929 AUTOSIZER. 
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930 SRO=1 ALLOWS THE USER TO INPUT DH PARAMETERS 
331 MANUALLY. (INHIBITS THE AUTOSIZER.) 

933 B. SUB-PROGRAM 2 DH11 SINGLE LINE ECHO TESTS 

935 (NONE ) 

937 C. SUB-PROGRAM 3 DH11 SINGLE LINE PATTERNS/CABLE TESTS 
939 SR15=1 HALT ON ERROR 

940 SR13=1 INHIBIT ERROR AND STATUS PRINTOUTS 

961 SRO7=1 LOOP ON CURRENT TEST PATTERN 

943 

944 2.3.2 CORE MEMORY LOCATIONS 

Be 

M7 A. SUB=PRO 1 DH11 DATA RELIABILITY TESTS 

949 WHEN THE AUTOSIZER OPTION IS USED, THIS PROGRAM 

950 CAN RUN NON-STANDARD DH11 CONFIGURATIONS (NON-CONTIGUOUS 

951 ADDRESSES). THE USER CAN ALSO PATCH IN HIS OWN ADDRESSES TO MATCH 
952 HIS CONFIGURATION AND THEN USE THE DEFAULT START TO RUN THE 

953 UPDATED PROGRAM. THE TABLES AND LOCATIONS TO MODIFY ARE DES- 
95% CRIBED BELOw: 

996 1) DEVICE ADDRESS TABLE 

958 THERE IS A 16. WORD TABLE STARTING AT THE ADDRESS 
959 TAGGED ‘DHADTB:'* THAT IS PROGRAM LOADED TO SPECIFY 16. 
960 CONTIGUOUS DH11°S STARTING AT THE BUS ADDRESS 160020(8). 
961 THIS TABLE IS MODIFIED AT CONFIGURATION TIME bs THE 

962 USER TYPES IN A DIFFERENT STARTING ADDRESS. OR IT MAY 
365 BE PATCHED TO REFLECT ANY UNIQUE DH11 SYSTEM CONFIGURATION. 
- - 2) VECTOR ADDRESS TABLE 

967 THERE IS A 16. WORD TABLE STARTING AT THE ADD- 
968 RESS TAGGED  DHVCTB: ** THAT IS PROGRAM LOADED 70 

969 SPECIFY 16. CONTIGUOUS VECTORS STARTING WITH 330(8) 

970 AND EACH ENTRY DISPLACED BY &. WORDS (330,350,370. EITC.) 
971 THIS TABLE IS MODIFIED AT CONFIGURATION TIME IF THE USER 
972 TYPES A DIFFERENT STARTING VECTOR ADDRESS. OR IT 

973 MAY BE PATCHED TO REFLECT ANY UNIQUE DH17 SYSTEM CON- 
pt F IGURATION. 

976 3) BR LEVEL TABLE 

978 THERE IS A 16. WORD TABLE STARTING AT THE ADDRESS 
979 TAGGED 'BRLVL:'' THAT IS PROGRAM LOADED TO CONTAIN A 

980 126240¢8) an EACH ENTRY WHICH SPECIFIES BR LEVEL 5 

981 FOR BOTH XMIT AND RECEIVE FOR ALL 16. DH117°S. IT IS NOT 
982 CHANGED AT CONFIGURATION TIME BUT MAY BE PATCHED TO 

983 REFLECT ANY UNIQUE DH11 SYSTEM CONFIGURATION. 


984 
985 4) DEVICE SELECTION PARAMETER 
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B. SUB-PROGRAM 2 


C. SUB-PROGRAM 3 


THERE IS A WORD TAGGED 'DHSEL:** THAT IS PROGRAM 
LOADED TO CONTAIN A 000001(8) WHICH SELECTS ONLY ONE 
SHI 1 (DH11 #00). THIS LOCATION CAN BE MODIFIED AT 

CONF | GURAT ION TIME TO SPECIFY ANY COMBINATION OF 

DH11'S UP_TO A MAXIMUM OF 16. UNITS. REFER TO 

PARA 2.1.3.1 (B 10) FOR A DESCRIPTION OF ITS ENCODING. 


5) LINE SELECTION PARAMETER (PARA 2.1.2.1 (B11)) 


THERE IS A WORD TAGGED ‘LINSEL:‘’ THAT IS 
PROGRAM LOADED AS 177777(8) TO SPECIFY ALL 16. 
LINES ARE TO BE TESTED IN EACH SELECTED DH11. 
IT MAY BE MODIFIED AT CONFIGURATION TIME TO SPECIFY 
oe COMBINATION OF LINES TO TEST. REFER TO SECTION 
OM -2 (B 11) FOR A DESCRIPTION OF ITS ENCODING. 


NOTE: THE DATA RELIABILITY PROGRAM IS TABLE 
DRIVEN IN THAT IT USES “DHSEL:*’ , 
“LINSEL:'' AND THE CONTENTS OF THE 
THREE 16. WORD TABLES TO DEFINE THE 
DH11 CONFIGURATION TO BE TESTED. 


DH11 SINGLE LINE ECHO TESTS 


(NONE ) 
DH11 SINGLE LINE PATTERNS/CABLE TESTS 


T)PATLIM: 10. 


THERE IS A LOCATION TAGGED *“PATLIM:"* THAT 
SPECIFIES THE NO. OF TEST PATTERN ITERATIONS TO EXECUTE 
IN THE PATTERNS TESTS. IT IS PROGRAM LOADED TO SPECIFY 
TEN ITERATIONS BEFORE THE "TEST DONE** REPORT IS TYPED. 


2) DATCNT: 


THERE IS A LOCATION TAGGED ‘DATCNT:** THAT KEEPS 
A COUNT OF THE NO. OF ITERATIONS COMPLETED DURING THE 
PATTERNS TESTS. THIS INFORMATION GETS TYPED OUT AS 
PART OF THE ERROR MESSAGE IF A DATA ERROR OCCURS 
IN THE PATTERNS TEST UNDER THE HEADING “‘ICQUNT'’. 


SEQ 0023 
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2.4 EXECUTION TIMES 


1. SRO7=0 QUICK TEST 


APPROXIMATELY 15. SECONDS FOR EACH LINE WITH 
1824 CHARS BEING TRANSMITTED AND RECEIVED. 


2. SR7=1 COMPLETE TESTING 


APPROXIMATELY 15. MINUTES FOR EACH LINE WITH 
18,720 CHARS BEING TRANSMITTED AND RECEIVED ON EACH 
LINE SELECTED FOR TEST. 


B. SUB-PROGRAM 2? DH11 SINGLE LINE ECHO TESTS 


NOT APPLICABLE SINCE THESE TESTS INVOLVE THE 
USER MANUALLY TYPING IN ON THE TERMINAL. 


C. SUB-PROGRAM 3 DH11 SINGLE LINE PATTERNS/CABLE TESTS 


EXECUTION TIMES VARY FROM LESS THAN 5 SECONDS TO GREATER 
THAN 15. MINUTES DEPENDING UPON BUFFER SIZE, LINE PARAMETERS. AND 


PATTERN SELECTED. 


SEQ 0024 
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1065 3.0 ERROR INFORMATION 
a I a a 
1067 
1068 3.1 ERROR REPORTING PROCEDURES 
ee 8 gee a 
1071 3.1.1 STANDARD SYSMAC.SML ERROR REPORTING CONVENTIONS 
1073 
1074 THE PROGRAM UTILIZES THE STANDARD PDP11 DIAGNOSTICS ERROR 
1075 UTILITIES. THE TEST ROUTINE CALLS THESE UTILITIES USING AN 
1076 “ERROR N'' INSTRUCTION (CODED EMT) WHERE 'N’’ IS THE NUMBER 
1077 OF THE ERROR MESSAGE. THE UTILITY ROUTINE USES ‘N’’ TO 
1078 ACCESS THE PROPER ERROR INFORMATION VIA THE ERROR TABLE 
1079 DESCRIBED IN SECTION 3.1.2 BELOW. EACH MESSAGE RESULTS 
1080 IN THREE LINES OF TYPEOUT AS FOLLOWS: 
1082 | LINE 1 A BRIEF DESCRIPTION OF THE FAILING FUNCTION 
1083 LINE 2 LABELS TO IDENTIFY THE DATA TYPED ON LINE 3 
1084 LINE 3 THE ACTUAL ERROR DATA (UP TO 8 OCTAL OR DECIMAL NO.S) 
ee EXAMPLE: 
1088 SYSTEM CONTROL REGISTER ERROR 
1089 (PC) (PS) (SP) TEST DEVADR REGADR WAS S/B 
1030 002720 090002 001074 000003 760020 160020 000000 000001 
1092 THE ERROR TABLE ITEMS SHOWN IN THE NEXT SECTION DESCRIBE ALL 
1093 THE ERROR MESSAGES WITHIN CZDHND AND ARE INTERPRETED 
109% AS FOLLOWS: 
1096 EM ADDRESS OF THE MESSAGE FOR LINE 1 
1097 DH ADDRESS OF THE DATA HEADER MESSAGE FOR LINE 2 
1098 DT ADDRESS OF THE TABLE OF ADDRESSES THAT POINT 
1099 TO THE DATA WORDS TO BE PRINTED 
7100 DF ADDRESS THAT POINTS TO THE DATA DESCRIPTOR 
1101 TABLE THAT DEFINES WHETHER AN ITEM IS OCTAL OR DECIMAL. 
1102 IF THIS ENTRY IS ‘0’* ALL DATA WORDS ARE IN OCTAL. 
1104 SECTION 3.1.3 DEFINES THE MEANING OF THE MNEUMONICS USED 


05 IN THE VARIOUS DATA HEADERS. 
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1106 3.1.2 ERROR MESSAGE TABLE 
ee een ene em te te 
1108 
1109 
1110 
a4 :ERROR TABLE ITEM FOR ERROR 1 
1113 EM} :''NON EX MEMORY ERROR - DROPPED LINE #& °° 
1114 DH1 :'' (PC)  CURLPR DEVADR REGADR WAS S/R’ 
1115 DTI :' SERRPC , CURLPR, $REG1, $REG2, $REG3, $REG4 
1116 DF2 “PRINT ALL OCTAL 
1M 18 :ERROR TABLE ITEM FOR ERROR 2 
1120 EM2 :''TRANSMITTER FALSE INTERRUPT - DROPPED LINES °’ 
1121 DH1 :'' (PC)  CURLPR DEVADR REGADR WAS S/R" 
1122 DT1 =" SERRPC, CURLPR, SREG1 , $REG2, $REG3. SREG4 
11g DF2 :PRINT ALL OCTAL 
ie :ERROR TABLE ITEM FOR ERROR 3 
1127 EM3 ‘| BUFFER ACTIVE REGISTER ERROR — DROPPED LINE # °* 
1128 DH1 (PC) CURLPR DEVADR REGADR WAS S/B"* 
1129 DT1 “SERRPC, CURLPR, $REG1, $REG2, $REG3. SREGS 
1130 DF2 :PRINT ALL OCTAL 
is ERROR TABLE ITEM FOR ERROR 4 
1134 EM, :'BYTE COUNT REGISTER ERROR - DROPPED LINE # °°" 
1135 DH1 :‘* (PC)  CURLPR DEVADR REGADR WAS S/B"' 
1136 DT1 >’ SERRPC, CURLPR,$REG1. $REG2. $REG3. SREG 
a4 DF2 :PRINT ALL OCTAL 
it 2 sERROR TABLE ITEM FOR ERROR 5 
1141 EMS 3, CURRENT ADDRESS REGISTER ERROR - DROPPED LINE er ie 
1142 DH1 :** (PC CURLPR DEVADR REGADR WAS S/B"° 
1143 DT1 S SERAPC. CURLPR ,$REG1, $REG2, $REG3. SREG4 
ee DF2 :PRINT ALL OCTAL 
1346 ERROR TABLE ITEM FOR ERROR 6 
1148 EM6 ays OVERFLOW ERROR - DROPPED LINE , oe 
1149 DH1 CURLPR DEVADR REGADR S/B"" , 
1150 DT1 S SERRPC. CURLFR, $SREG1, $SREG2, $REG3. srees 
He DF2 :PRINT ALL OCTAL 
ties ;ERROR TABLE ITEM FOR ERROR 7 
1155 EM7 : RECEIVER FALSE INTERRUPT | - LINE # °° 
1156 DH1 (PC) CURLPR DEVADR REGADR WAS S/B"" 
1157 DT1 « SERRPC, CURLPR ,$REG7 , SREG2, $REG3, SREGS 
1138 £ DF2 “PRINT ALL OCTAL 
1160 ZERROR TABLE ITEM FOR ERROR 10 


—- —— —ae 
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1162 EM10 : "INVALID DATA IN SILO - DROPPED LINE # ‘' 
1163 DH2 (PC) CURLPR CHAR # WASADR SHBADR WAS S/R" 
1164 DT2 “ $ERRPC., CURLPR,$REGO, $REG1, $REG2,$REG3, $REGS 
1165 DF2 :PRINT ALL OCTAL 
167 :ERROR TABLE ITEM FOR ERROR 11 
1169 EM11 :'DATA ERROR - LINE # °' 
1170 DH2 ; (PC) CURLPR CHAR # WASADR SHBADR WAS S/B’ 
1171 DT2 : $ERRPC, CURLPR, SREGO. $PEG1,$REG2, $REG3, $REG4 
ee DF2 :PRINT ALL OCTAL 
11% ;ERROR TABLE ITEM FOR ERROR 12 
i7 
1176 EM12 3) TEST TIMEOUT - DROPPED LINE # °’ 
1177 DH3 (PC) CURLPR RTOTAL XTOTAL RDONE’’ 
1178 DT3  SERRPC, CURLPR,$TMPO,$TMP1RDONE’’ 
ba DF2 =PRINT ALL OCTAL 
is ;ERROR TABLE ITEM FOR ERROR 13 
1183 NOTE: ERROR 13 IS CALLED TO PRINT EACH LINE OF DATA IN THE 
1184 ERROR STATISTICS TABLE. IT PRINTS ONLY DATA* WITHOUT ANY 
1185 MESSAGE OR DATA HEADERS. 
1186 
1187 
1188 0 NO MESSAGE 
1189 0 sNO DATA HEADER 
1190 DT4 STMPO, yg STMP3.STMP4.STMPS. SIMPG 
ie DF1 “PRINT ALL DECIMA 
a ;ERROR TABLE ITEM FOR ERROR 14 
1195 EM14 :'BUS ERROR TRAP 70 04°’ 
1196 DH4 ='" (PC) (PS) (SP) TRAPPC TRAPPS’’ 
1197 DTS :SERRPC,STMPO, $REG6, $REG1 .$REG2"" 
38 DF2 =PRINT ALL OCTAL 
on sERROR TABLE ITEM FOR ERROR 15 
1202 EM15 :"'RSVD sla we To 10°" 
1203 DH4 * (PC) (SP) TRAPPC TRAPPS'** 
1204 DT5 “ SERRPC., STO SREGE. SREG1, SREG2"' 
16> DF2 *PRINT ALL OCTAL 
ie sERROR TABLE ITEM FOR ERROR 16 
1209 EM16 1'SING aLE LINE ECHO TEST = INTR WAIT TIMEOUT" 
1210 DH5 (PC) DEVADR LINE (SCR) CURLPR EXFLAG’ 
1211 DT6  $ERRPC. SREG1.LINE, STMPO. CURLPR,EXFLAG'' 
1212 DF2 “PRINT ALL OCTAL 
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1214 
1215 NOTE: ERRORS 17 THRU 24 ARE USED TO REPORT PERFORMANCE 
126 NOT ERRORS. 
1518 sERROR TABLE ITEM FOR ERROR 17 
1220 EM17 :\/AL TERNAT ING 1/0 PATTERN TEST DONE"’ 
1221 DH6 (PC) DEVADR LINE  CURLPR ICOUNT’’ 
1222 DT7 : SERRPC ,DHADR, LINE, CURLPR, $REGO 
12e5 DF2 “PRINT ALL OCTAL 
im :ERROR TABLE ITEM FOR ERROR 20 
1227 : EM20 7‘ BINARY UP COUNT PATTERN TEST DONE’’ 
1228 DH6 ;*" (PC)  DEVADR LINE CURLPR  ICOUNT’’ 
1229 DT7 : SERRPC ,DHADR, LINE, CURLPR, $REGO 
1630 DF 2 =PRINT ALL OCTAL 
ise zERROR TABLE ITEM FOR ERROR 21 
1234 EM21 :’ BINARY DOWN COUNT PATTERN TEST DONC’? 
1235 DH6 :'' (PC)  DEVADR LINE  CURLPR  ICOUNT’’ 
1236 . pT? : SERRPC ,DHADR, LINE, CURLPR, $REGO 
137 DF2 :PRINT ALL OCTAL 
‘Sze ERROR TABLE ITEM FOR ERROR 22 
1241 EM22 :" ‘RANDOM DATA PATTERN TEST DONE’’ 
1242 DH6 :‘' (PC)  DEVADR LINE CURLPR ICOUNT’ 
1243 DT7 : SERRPC ,DHADR, LINE, CURLPR, $REGO 
Lrg: DF2 :PRINT ALL OCTAL 
<9 sERROR TABLE ITEM FOR ERROR 23 
1248 EM23 ;SINGLE CHAR PATTERN TEST DONE"' 
1249 | DH6 | :"* (PC)  DEVADR LINE CURLPR ICOUNT'’ 
1250 7 DT7 : SERRPC ,DHADR, LINE, CURLPR, SREGO 
ioe DF2 [PRINT ALL OCTAL 
1233 ;ERROR TABLE ITEM FOR ERROR 24 
1255 : EM24 :'"TYPED BUFFER PATTERN TEST DONE" 
1256 DH6 7" (PC)  DEVADR LINE  CURLPR COUNT" 
1257 DT7 * SERRORPC , DHADR, LINE. CURLPR, $REGO 
i DF2 :PRINT ALL OCTAL 
Le ZERROR TABLE ITEM FOR ERROR 25 
1262 EM25 :'DATA PATTERNS TEST TIMEQUT'' 
1263 DH7 :'' (PC) DEVADR LINE  CURLPR LCOUNT PATCDE"’ 
1264 DT10 : SERRPC ,DHADR, LINE, CURLPR, $REGO, $REG1 
ieee DF2 :PRINT ALL OCTAL 


CZDHN=D MACY11 30A(1052) 27=DEC-78 15:31 PAGE 30 


CZDHND.P11  27=DEC-78 15:28 SEQ 0029 
1268 3.1.3 DATA HEADER MNEUMONIC DEFINITIONS 
eS 
1271 : ALL NUMBERS PRINTED AS ERROR DATA ARE IN OCTAL 
1273 (PC) ADDRESS OF THE ERROR CALL (ERROR PC) 
1275 (PS) CONTENTS OF THE PSW AT THE TIME OF THE ERROR 
1277 (SP) CONTENTS OF THE STACK POINTER AT THE TIME OF THE ERROR 
1279 LINE | INDICATES THE LINE NUMBER THAT FAILED 
1281 DEVADR DEVICE ADDRESS - 1ST ADDRESS IN THE SELECTED DH11 
1285 REGADR ADDRESS OF THE DH11 REGISTER BEING TESTED 
1285 WAS WHAT THE ACTUAL DATA READ WAS (DH11 REG OR CORE LOC.) 
1287 S/B WHAT THE DATA READ SHOULD HAVE BEEN | 
1289 TRPPC CONTENTS OF THE PC (R7) AT THE TIME OF A BUS ERROR 
1290 OR RSVD INSTR TRAP. 
1292 TRPPS CONTENTS OF THE PSW AT THE TIME OF A BUS ERROR 
1298 7 OR RSVD INSTR TRAP. 
1299 WASADR CORE MEMORY ADDRESS OF THE ‘WAS'’ DATA (ACTUAL DATA READ) 
1297 SBADR CORE MEMORY ADDRESS OF THE S/B DATA (GOOD DATA) 7 
1299 | CHAR # INDICATES THE CHARACTER POSITION IN THE DATA BUFFER 
1301 ICOUNT INDICATES ITERATION COUNT OF DATA PATTERNS TESTS - 
1302 PROGRAM DEFAULTS TO ITERATING EACH PATTERN 10. TIMES. 
1304 PATCDE INDICATES PATTERN BEING TESTED WHEN ERROR OCCURRED 
lao AS SHOWN BELOW: 
1307 PATCDE= 101 ALTERNATING 1/0 PATTERN 
1308 125 BINARY UP COUNT PATTERN 
1309 104 BINARY DOWN COUNT 
1310 122 RANDOM DATA PATTERN 
1311 123 SINGLE CHAR PATTERN 
i312 102 TYPED IN BUFFER PATTERN 
1514 (SCR) INDICATES CONTENTS OF THE "'SCR'’ REG WHEN ERROR OCCURRED 
1316 EXFLAG INDICATES STATE OF THE XMITTER INTR SERVICE ROUTINE 
1317 IN THE ECHO TESTS AS SHOWN BELOW: 
1319 EXFLAG= 1 CONTROL-C WAS TYPED 
1320 2 CONTROL-E WAS TYPED 
1321 3 BUFFER WAS BEING DUMPED 
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1338 a EG TAL PRINTOUT 
1324 IF A POWER FAILURE OCCURS WHILE THE PROGRAM IS RUNNING. 
1356 THE FOLLOWING PRINTOUT OCCURS: 
18 ose 
1329 T THE PROGRAM WILL BE RESTARTED AUTOMATICALLY 
1330 FROM THE BEGINNING. NO ATTEMPT 13° MABE TO CONTINUE L Toe) Poe 
1a FROM THE POINT OF THE POWER FAIL INTERRUPTION. 
' 
HS 
oF on a TS 
1336 
1338 A. SYSMAC ERROR SERVICE ROUTINE HALT 
1359 << R15=1_A ‘HALT’ IS EXECUTED IN THE SYSMAC ERROR 
1340 UTILITY AFTER THECERROR FYREOU It are ar MAC ERR 
1322 FROM THE POINT OF THE ‘HALT’’ SIMPLY DEPRESS CONTINUE. 
1340 B. POWER FAIL HALT 
1% POWER DOWN IS DETECTED, THE PROGRAM HALTS IN 
1346 THE POWER FAIL UTILITY ROGUGNE. TE EGR ere ME ASon 
138 Me Poon GILL Note ONTals GALT TF CMTE Te 
PROGRAM WILL ‘LOCK’ 
1366 DEPRESSED. IN THIS CASE TNE PHOGHAM MUST Ce Lees adteD. 
1382 ) C. TRAP CATCHER HALTS 
1352 THE STANDARD 
ALL INACTIVE VECTORS ARE SET UP WITH 
1338 POP11 TRAP CATCHER AS DESCRIBED BELOW. 
1356 
VN / VNe2 
io VN+2/ HALT 
1359 OR INTERRUPT OCCURS TO A VECTOR THAT HAS 
1361 NOT BEEN SET UP BY THE SESt ROUTINE, A ‘HALT’ OCCURS 
Eg IN THE VECTOR AREA. THE ADDRESS DISPLAY INDICATES 
1362 WHICH VECTOR THE PROGRAM TRAPPED TO AND THE LAST ENTRY 
La "PUSHED ON TO THE STACK INDICATES WHERE THE PROGRAM WAS 
ia WHEN THE TRAP OR INTERRUPT OCCURRED. 
1366 
1367 


CZDHN=D MACY11 30A(1052) 
CZDHND .P11 


REPRESS 


Ww 
SERS 


W 
oO 
oll 


27=DEC-78 


27-DEC-78 
15:28 


15:31 


4.0 


4. 


1 


PAGE 32 


PERFORMANCE AND PROGRESS REPORTS 


A. SUB=PROGRAM 1 


AT THE COMPLETION OF EACH PASS THROUGH re DH11 UNDER 
TEST, OR WHEN INVOKED BY THE USER TYPING AN ‘'S’’ 

TERMINAL , 
DEVICE. 


NUMBER 


LINE # 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLLL 
LLLLiL 
LULLLL 
LLLLLL 
CLULLL 
LLLLLi 
LLLLLL 
LLLLiL 


WHERE: 


DH11 DATA RELIABILITY TESTS 


THE STATISTICS TABLE S 
TABLE CONSISTS OF 


TAL 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 
RRRRRR 


N 
L 
R 
x 
D 
p 


XTOTAL 
XXXXXX 
XXXAXXX 
XXXXKX 
XXXAXXX 
XXXXXX 


XXXXKX 


XXXXXX 
XXAXXAX 
XAXXXXX 
XXXXAK 
XXXXXX 
XXXXXX 
XXXXXX 
XXXXXX 
XXXXXX 
XXXAXKX 


Bane re ne ot Re 
MNMNWMNUITAM 
| 
Ae 
rm 


DATERR 
DDDDDD 


DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDODDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DDDDDD 
DH11 # IN 


Q 

LINE # INQ 

~ OF CHARS RECEIVED IN DECIMAL 
0 
0 


TOTAL 


TOTAL 
TOTAL 


NO 
TOTAL NO. 
NO 
NO 


PARERR 
PPPPPP 
PPPPpp 
PPPPPP 
PPPPPP 


CTAL 
CTAL 


OF CHAR 


FRMERR 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FFFFFF 
FRFFFFF 


ON THE CONSOLE 

SHOWN BELOW. IS TYPED ON THE CONSOLE 
THE i ENTRIES WHERE THE 
OF LINES SELECTED FOR TEST 


DH ANN STATISTICS: 
RTO 


"'NN’’ IS 


OVRERR 
000000 
000000 
000000 
000000 
090000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
Q00600 
000000 


S_TRANSMITTE 


SEQ 0031 
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1424 F IS THE TOTAL NO. OF FRAMING ERRORS IN DECI 
1425 0 IS THE TOTAL NO. OF OVERRUN ERRORS IN DEC] 
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1427 NOTES: 1.) IF A LINE WAS DROPPED DURING THE TEST DUE TO AN 

1428 UNRECOVERABLE READ OR WRITE ERROR THE MESSAGE SHOWN 

Ly BELOW WILL REPLACE THE NORMAL ERROR STATISTICS ENTRY: 

4 . 

rg? "LINE #NN WAS DROPPED’' | 

4 J 

oe: WHERE ‘'NN’’ IS THE LINE NO. IN OCTAL. 

1435 2.) IF [HE PRINTOUT IS INVOKED BY TYPING AN ‘'S’’ , THE 

1436 ‘RTOTAL'' AND ‘*XTOTAL’’ ENTRIES MAY OR MAY NOT BE EQUAL 

Les 4 DEPENDING UPON WHEN THE PROGRAM ‘’SAW’’ THE ‘'S’’, 

1439 3.) AFTER PRINTING THE ERROR STATISTICS TABLE, THE PROGRAM 

1440 WILL RESTART AND BEGIN TESTING THE NEXT DH11 IN SEQUENCE. 

1441 IF ONLY ONE DH11 IS SELECTED FOR TEST OR SR14=1, THE SAME DH11 

ae WIL!. BE TESTED AGAIN, 

cone B. SUB-PROGRAM 2 DH11 SINGLE LINE ECHO TESTS 

1446 1) SEND MODE: THE DISPLAY ON THE DH11 TEST TERMINAL 

1447 SHOULD MATCH THE BUFFER TYPED IN ON 

i. THE CONSOLE TERMINAL . 

1450 2) ECHO MODE: THE CHARACTERS ECHOED ON THE DH11 TEST 

1451 TERMINAL SHOULD MATCH THE CHARACTERS 

ets TYPED ON THE TEST TERMINAL KEYBOARD. 

bess C. SUB-PROGRAM 3 DH11 SINGLE LINE PATTERNS/CABLE TESTS 

1456 (NONE PROVIDED) 
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1458 4.2 PROGRESS REPORTS 

1459 "Mmmm ewe 

1460 

Hrs A. SUB=-PROGRAM 1 DH11 DATA RELIABILITY TESTS 

1463 

1464 1. EACH TIME A NEW DH11 IS SELECTED FOR TEST 

1465 THE PROGRAM TYPES: 

— “TESTING DH11 #NN’’ 

1469 WHERE ''NN’’ IS THE NO. IN ag 4 THE DH11 

yy CURRENTLY BEING TESTED. (00 - 

1472 2. EACH TIME A NEW LINE IS SELECTED FOR TEST 

Mes THE PROGRAM TYPES: 

be “TESTING LINE #NN'* 

yi WHERE ‘NN'' IS THE LINE NO. IN OCTAL (00 - 17) 

1479 3. AFTER COMPLETE TESTING OF a SELECTED DH11°S THE 

Lg = FOLLOWING MESSAGE IS PRINTED 

bes “END PASS ANNAN’ * 

1484 WHERE : N IS THE NO. OF COMPLETE PROGRAM 

Les PASSES DURING THE CURRENT ° RUN’’ 

heey <A B. SUB-PROGRAM 2 DH11 SINGLE LINE ECHO TESTS 

1489 

seat (NONE SUPPLIED) } 

Lap C. SUB-PROGRAM 3 DH11 SINGLE LINE PATTERNS/CABLE TESTS 

1494 

1495 EACH TIME A SPECIFIC TEST PATTERN TEST IS COMPLETED 

pe (10. ITERATIONS) THE FOLLOWING MESSAGE IS TYPED: 

1498 eo PA TEST DONE 

1499 DEVADR LINE CURLPR  ICOUNT 

ia PPPPPP DDDDDD LLLLLL CCCCCC ITIIII! 

1502 WHERE: NAME IS THE NAME OF THE PATTERN — IE ‘RANDOM’, 

1503 “BINARY UP COUNT‘, ETC 

1504 Pp IS THE PC OF THE MESSAGE CALL 

1505 D IS THE ADDRESS OF THE DH17? UNDER TEST 

1506 L IS THE LINE NO. BEING TESTED 

1507 C IS THE CONTENTS OF THE “‘LPR'S DURING THE TEST 

1508 I IS THE NO. OF TEST PATTERN ITERATIONS COMPLETED 


THIS TYPEOUT MAY BE INHIBITED BY SETTING SR135=1. 
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1514 5.0 DH11 DEVICE INFORMATION 

VT 

1516 

1517 a0 ADDRESS AND VECTOR ASSIGNMENTS 

ee ee ee 

1520 THE DH11 USES FLOATING ADDRESSES AND IS LOCATED AFTER DJi1'S IN THE FLOATING ADD 

1521 BECAUSE THE DH11 HAS EIGHT REGISTERS, IT MUST BE ASSIGNED AN ADDRESS THAT IS A M 
1286 SYSTEM SHOULD HAVE CONSECUTIVE ADDRESSES. 

1282 EXAMPLE #1: A SYSTEM WITH NO DJ11‘°S BUT TWO DH11°S. 

1526 760 010 CANNOT USE FOR DH11'35 BECAUSE NOT MULTIPLE OF 20. 

1527 760 020 FIRST DH11 

1528 760 040 SECOND DH11 

Lp 4 760 060 DH11 GAP (INDICATES THAT THERE ARE NO MORE DH11°S). 

pe EXAMPLE #2: A SYSTEM WITH ONE DJ11, TWO DH11°S: 

1533 760 010 FIRST DJ11 

1534 760 020 DJ11 GAP (INDICATES THAT THERE ARE NO MORE DJ11°S). 

1535 760 030 CANNOT USE FOR DH11'S BECAUSE NOT MULTIPLE OF 20. 

1536 760 040 FIRST DH11 

1537 766 060 SECOND DH11 

Le? 760 100 DH11 GAP (INDICATES THAT THERE ARE NO MORE DH11°S). 

1540 THE DH11 VECTORS (2) FOLLOW THOSE OF THE DJ11 IN THE FLOATING VECTOR SPACE THAT 

1541 AT 300 ARE USED IN THE FOLLOWING ORDER: DC11; KL11/DL11-A. B; DP11: DM11-A: DNT1 
taee PA611 PUNCHES; DT11; DX11; DL11-C, D, E: DHi1. 

1544 THE RECEIVER VECTOR IS THE LOWER NUMBERED VECTOR. THE PRIORITY OF THE RECEIVER A 
Ps SELECTABLE BY MEANS OF TWO STANDARD PDP11 PRIORITY JUMPER PLUGS. BR LEVEL 5 IS S 
1547 ae REGISTER DEFINITION | 

ES ee ie eos 

1550 THE FOLLOWING SECTION DESCRIBES THE BIT ASSIGNMENTS WITHIN EACH REGISIER: BITS # 
1551 AS ZERO. ATTEMPTING TO WRITE INTO UNUSED OR READ ONLY BITS HAS NO EFFECT ON THOS 
1552 GENERATED BY THE PROCESSOR (E.G. UPON EXECUTION OF A RESET INSTRUCTION). TRANSMI 
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1334 5.2.1 THE SYSTEM CONTROL REGISTER - ADDRESS x00 
1556 
1392 THE SYSTEM CONTROL REGISTER IS A BYTE-ADDRESSABLE REGISTER. THE BIT ASSIGNMENT | 
1559 BITS DESCRIPTION 
1560 we-- 0 eee --- ee 
1561 
1362 00-03 LINE SELECTION 
1564 | EACH OF THE 16 LINES SERVED BY THE DH11 HAS ITS OWN STORAGE FOR LINE PAR 
1565 BYTE COUNT. THESE STORAGE LOCATIONS ARE LOADED BY THE PROGRAM VIA THE i | 
1566 REGISTER, AND BYTE COUNT REGISTER, BUT THE HARDWARE MUST FIRST BE TOLD Ww 
1567 CURRENT ADDRESS, OR BYTE COUNT CHANGED. THIS ROUTING IS ACCOMPLISHED RY 
1368 THE BINARY ADDRESS (0000-1111) OF THE DESIRED LINE. THESE BITS ARE KEAD/ 
1370 04, 05 MEMORY EXTENSION 
1572 THE INFORMATION STORED IN THESE BITS BECOMES BITS 16 AND 17 RESPECTIVELY 
1573 PROGRAM INTO THE CURRENT ADDRESS REGISTER. THESE BITS ARE READ/WRITE BUT 
1574 OF BITS 4 AND 5 OF THE SYSTEM CONTROL REGISTER, NOT THE STATUS OF ADDRES 
1575 SEE THE SILO STATUS REGISTER FOR FURTHER INFORMATION. THIS ARRANGEMENT P 
1376 SAVE THE CONTENTS OF THE SYSTEM CONTROL REGISTER ACCURATELY. 
1578 06 RECEIVER INTERRUPT ENABLE 
1380 THIS BIT, WHEN SET, ENABLES RECEIVER INTERRUPTS (BIT 7) 
1382 07 RECEIVER INTERRUPT 
1584 THIS BIT, WHEN SET, INDICATES THAT THE NUMBER OF CHARACTERS STORED IN TH 
1585 SPECIFIED BY THE LOW BYTE OF THE SILC STATUS REGISTER. THIS BIT IS RED 
1586 WHERE IT IS READ/WRITE. SETTING OF THIS BIT WILL GENERATE AN INTERRUPT & 
rf IS ALSO SET. 
1389 08 CLEAR NON-EXISTENT MEMORY INTERRUPT 
1591 THIS BIT, WHEN SET, CLEARS THE NON-EXISTENT MEMORY INTERRUPT FLIP-FLOP < 
1592 1S READ/WRITE. 
1593 
a 09 MAINTENANCE 
13% THIS BIT, WHEN SET, PLACES THE DH11 IN MAINTENANCE MODE. 
as 10 NON-EXISTENT MEMORY 
1600 THIS BIT IS SET WHENEVER THE NPR HARDWARE PLACES THE ADDRESSES OF A MEMO 
1601 NO SLAVE SYNC IS RECEIVED IN 20 US. THIS INDICATES THAT THE ADDRESSED LO 
1602 THIS BIT CAUSES AN INTERRUPT REQUEST IF SET WHILE TRANSMITTER AND NON-EX 
1605 THIS BIT IS READ ONLY, EXCEPT IN MAINTENANCE MODE, WHERE IT IS READ/WRIT 
1695 11 MASTER CLEAR 
1607 THIS BIT, WHEN SET, GENERATES ‘'INITIALIZE’* WITHIN THE DH17, CLEARING THE 
1608 EXACT BITS CLEARED ARE DISCUSSED IN THE SECTION ON INITIALIZATION. REAG 
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12 


13 


15 


SEQ 0037 
STORAGE INTERRUPT ENABLE 
THIS BIT, WHEN SET, PERMITS THE SETTING OF BIT 14 TO GENERATE AN INTERRU 
TRANSMITTER AND NON-EX=MEM INTERRUPT ENABLE 
THIS BIT, WHEN SET, PERMITS THE SETTING OF BIT 10 OR 15 TO GENERATE AN | 
STORAGE INTERRUPT 
THIS BIT IS SET WHEN THE RECEIVER SCANNER FINDS A RECEIVER HOLDING BuFFE 
STORE THAT CHARACTER IN THE SILO, AND CANNOT DO SO BECAUSE OF A LACK OF 
AN INTERRUPT REQUEST IF SIT 12 IS SET. THIS BIT IS READ ONLY, EXCEPT IN 
IT IS READ/WRITE. 
TRANSMITTER INTERRUPT 
THIS BIT IS SET WHEN THE DH11 CONCLUDES AN NPR CYCLE THAT INCREMENTED A 


CHARACTER IN A MESSAGE BUFFER WAS LOADED INTO A UART TRANSMITTER HOLDING 
REQUEST IF BIT 15 IS SET. THIS BIT IS READ/WRITE. (IT IS SET DURING AN 





on 


arrmnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnenen erences SSS sss sss sees 


mM 3 
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1631 5.2.2 NEXT RECEIVED CHARACTER REGISTER ADDRESS x02 
1633 
1634 BITS DESCRIPTION 
1635 aa-= 0 eae ea----- 
1636 
1637 00-07 NEXT RECEIVED CHARACTER 
2) 
1659 THESE BITS CONTAIN THE NEXT RECEIVED CHARACTER, RIGHT JUSTIFIED. THE LEA 
1641 08-11 LINE NUMBER 
1643 THESE BITS INDICATE THE LINE NUMBER ON WHICH THE NEXT RECEIVED CHARACTER 
1644 LEAST SIGNIFICANT BIT. 
1646 . PARITY ERROR 
1648 THIS BIT IS SET IF THE PARITY OF THE RECEIVED CHARACTER DOES NOT AGREE w 
1650 13 FRAMING ERROR 
1652 THIS BIT IS SET IF THE RECEIVER SAMPLES A LINC FOR THE FIRST STOP BIT. A 
1653 (LOGICAL 0). THIS CONDITION USUALLY INDICATES THE RECEPTION OF A BREAK. 
1655 14 DATA OVERRUN 
1657 THIS BIT IS SET WHEN THE RECEIVED CHARACTER WAS PRECEDED BY A CHARACTER 
1658 RECEIVER SCANNER TO SERVICE THE UART RECEIVER HOLDING BUFFER. REFER TO T 
1659 FURTHER DETAILS ON DOUBLE-BUFFERED RECEPTION. 
1661 15 VALID DATA PRESENT 
1663 THIS BIT INDICATES THAT THE DATA PRESENTED IN BITS 14-00 IS VALID. IT PE 
1664 CHARACTERS FROM THE SILO UNTIL IT IS EMPTY. THIS IS DONE BY READING THIS 
1665 i> OBTAINED FOR WHICH BIT 15 IS A ZERO. THE ENTIRE NEXT RECEIVED CHARACT 
7 ONLY ON A WORD BASIS. 
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ioe 5.2.5 LINE PARAMETER REGISTER ADDRESS x04 
1670 
1671 THIS REGISTER SHOULD BE LOADED ONLY AFTER THE LINE SELECTION BITS OF THE SYSTEM 
iy LINE TO WHICH THESE PARAMETERS APPLY. THIS REGISTER IS WRITE ONLY. 
1674 BITS DESCRIPTION 
1675 — Seen ewe 
1676 
by 00-01 CHARACTER LENGTH 
rt THESE BITS SHOULD BE SET AS SHOWN 70 RECEIVE AND TRANSMIT CHARACTERS OF 
1681 BIT 01 00 
VOB a a a 
1683 
1684 0 0O 5 BIT 
1685 0 1 6 BIT 
1686 1 O 7 BIT 
1687 ted 8 BIT 
1688 
a 02 TWO STOP BITS 
1691 THIS BIT, WHEN SET, CONDITIONS A LINE TRANSMITTING WITH 6, 7, OR 8-BIT C 
1692 MARKS. IF THE LINE IS TRANSMITTING 5-BIT CODE, ASSERTION OF THIS BIT CAU 
bas 1.5 STOP MARKS. IF THIS BIT IS NOT ASSERTED, 1 STOP MARK IS SENT. 
1695 03 NOT USED 
1696 
coin 04 PARITY ENABLED 
1699 IF THIS BIT IS SET, CHARACTERS TRANSMITTED ON THIS LINE WILL HAVE AN APP 
a. RECEIVED ON THIS LINE WILL HAVE THEIR PARITY CHECKED. 
if 05 ODD PARITY 
1704 IF THIS BIT AND BIT 4 ARE SET, CHARACTERS OF ODD PARITY WILL BE GENERATE 
1705 WILL BE EXPECTED TO HAVE ODD PARITY. IF THIS BIT IS NOT SET, BUT BIT 4 1 
1706 GENERATED ON THIS LINE AND INCOMING CHARACTERS WILL BE EXPECTED TO HAVE 
ya 4 OF THIS BIT IS IMMATERIAL. 
1 06-09 RECEIVER SPEED 
1711 THE STATE OF THESE BITS DETERMINES THE OPERATING SPEED FOR THIS LINE'S R 
ya BELOW IS APPLICABLE. 
A 10-13 TRANSMITTER SPEED 
1716 THE STATE OF THESE BITS DETERMINES THE OPERATING SPEED FOR THiS LINE'S T 
AEA TABLE ON THE NEXT PAGE IS APPLICABLE. 
1719 
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SEQ 0040 


SPEED TABLE FOR RECEIVER AND TRANSMITTER SPEEDS: 


TRANSMIT 
RECEIVER 


14 


15 


BIT 
TER 13 12 17 10 
9 8 7 6 


8 od od od a od = IO OOOOOOO 


EXTERNAL INPUT A 
EXTERNAL INPUT B 


+4 2 ADO0O0———=0000 
—-4DOO— =00--00—- $900 
0-0-0 -0-0-0-0-0 

3 

: 

” 


HALF DUPLEX/FULL DUPLEX 


IF THIS BIT IS SET, THIS LINE WILL OPERATE IN HALF-DUPLEX MODE. IF NOT 
IN FULL~DUPLEX MODE. geese 


IN THIS APPLICATION HALF-DUPLEX MEANS THAT THE DH117 RECEIVER IS BLINDED 
AUTO-ECHO ENABLE 


WHEN THIS BIT IS SET, CHARACTERS RccEIVED ON THIS LINE WILL HARDWAR 
FURTHER DETAILS. . 4% : 


C 
C 
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5.2.4 


ee ee 


5.2.6 


Sedat 


CURRENT ADDRESS REGISTER ADDRESS x06 





THIS REGISTER SHOULD BE LOADED ONLY AFTER THE SYSTEM CONTROL REGISTER (SCR) HAS 
DESIRED LINE NUMBER. WHEN THIS REGISTER IS LOADED, ADDRESS BITS 00-15 ARE TRANSF 
MEMORIES IN THE DH11 FROM BITS 00-15 OF THIS REGISTER. ADDRESS BITS 16-17 ARE TR 
MEMORIES iN THE DH11 FROM BITS 4-5 OF THE SYSTEM CONTROL REGISTER. 


INTERRUPTS MUST BE INHIBITED OR THE SCR SAVED BETWEEN THE SETTING OF THE SCR BIT 
ADDRESS REGISTER. 


WHEN THIS REGISTER IS READ, IT WILL INDICATE THE CURRENT ADDRESS OF THE LINE SEL 
BITS 16 AND 17 WILL APPEAR IN THE SILO STATUS REGISTER, BITS € AND 7. : 


BYTE COUNT REGISTER ADDRESS X10 


IN THE SAME FASHION AS THE LINE PARAMETER AND CURRENT ADDRESS REGISTERS. THIS RE 
FIRST SELECTING A LINE NUMBER BY MEANS OF THE LOWER-ORDER FOUR BITS OF THE SYSTE 
ie abate TWO"S COMPLEMENT OF THE NUMBER OF CHARACTERS (BYTES) TO BE TRANS 


INTERRUPTS MUST BE INHIBITED OR THE SCR SAVED BETWEEN THE SETTING OF THE SCR BIT 
COUNT REGISTER 


BUFFER ACTIVE REGISTER (BAR) ADDRESS x12 





THIS REGISTER CONTAINS ONE BIT FOR EACH LINE. THE BITS ARE INDIVIDUALLY SET USIN 
TRANSMISSIGN ON THE ASSOCIATED LINE. THE BIi IS CLEARED BY THE HARDWARE WHEN THE 


IS A NC E~-BUF 
WANT TO WRITE PROGRAMS THAT CONTROL SUCH MODEM LEADS ARE REQUEST TO SEND. REQUES 


THIS TIMING MAY BE EFFECTED BY SENDING TWO EXTRA (NULL) CHARACTERS IN A MESSAGE 


CLEARING A BAR BIT SHOULD NOT BE USED TO ABORT TRANSMISSION ON A LINE. RATHER, T 
TO ZERO. THE BUFFER ACTIVE REGISTER BITS ARE READ/WRITE. 


BREAK CONTROL REGISTER ADDRESS X14 


THIS REGISTER CONTAINS ONE BIT FOR EACH LINE. SETTING A BIT IN THIS REGISTER WIL 
ON THE LINE CORRESPONDING TO THAT BIT NUMBER. CLEARING THE BIT WILL TERMINATE TH 
MAY BE TIMED BY SENDING CHARACTERS DURING THE BREAK INTERVAL, SINCE THESE CHARAC 
FURTHER COMMENTS CONCERNING THE TRANSMISSION OF BREAK SIGNALS MAY BE FOUND IN TH 
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5.2.8 


SILO STATUS REGiSTER ADDRESS X16 





THIS REGISTER IS ACTUJALLY TWO BYTE~SIZED REGISTERS. THE BIT ASSIGNMENTS ARE: 


BIT 


00-05 


06-07 


08-15 


DESCRIPTION 


SILO ALARM LEVEL 


THE PROGRAM MAY LOAD AN INTEGRAL POWER OF 2 BETWEEN O AND 63 INTO THIS L 
WHEN THE NUMBER OF CHARACTERS STORED IN THE SILO EXCEEDS THAT NUMBER. AN 
REGISTER BIT 7) IS GENERATED, IF SYSTEM CONTROL REGISTF2 BIT 6 IS SET. T 


READ EXTENDED MEMORY 


THESE BITS ARE READ ONLY AND CONTAIN THE A16 AND A17 BITS OF THE CURRENT 
SELECTION BITS OF THE SYSTEM CONTROL REGISTER ARE POINTING. 


SILO FILL LEVEL 


THESE BITS ARE AN UP=DOWN COUNTER THAT INDICATES THE ACTUAL NUMBER OF CH 
BE NOTED THAT THERE ARE SIX BITS. HENCE NUMBERS BETWEEN O AND 63 CAN BE 
ENTRIES AND THE FILL LEVEL APPEARS AS 00000, BUT ONE MAY EASILY TELL THE 
SILO (00000) AND A FULL SILO (00000) BY CHECKING THE STORAGE OVERFLOW BI 
THESE BITS ARE READ ONLY. 
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5.3 DH11 MODULE ALLOCATION CHART 
VIEW FROM WIRING SIDE 
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I 
ROW A ? CONNECTOR 
| 
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! (NOTE #5) . 
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8 CLOCK '! (NOTES #6 
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! 
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ae. 
1892 ' INTR CNTL } 
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1896 

1897 FIGURE 2-4 DH11 MODULE UTILIZATION DIAGRAM 

1898 PAGE 2 

1899 

1900 

1901 NOTES 

1902 

1908 1. IF END OF BUS, REPLACE M920 WITH M930. 

1905 2. IF LAST UNIT IN BASIC BOX, REPLACE M920 WITH BC11A CABLE WHEN 

1906 EXPANDING 10 PERIPHERAL BOX. 

1908 3. IF FIRST UNIT IN EXPANDER BOX, REPLACE M920 WITH BC11A CABLE. 

1910 4. 02 MUST BE G727 GRANT CONTINUITY IF MODEM CONTROL MODULE SET 

1911 SNOT INSTALLED. — * DENOTES DM11~B8 MODEM CONTROL OPTION. 

1912 WITH DH11-AA OR AC 

1914 5. MODULE SLOTS PROVIDE FOR ADDITIONAL CLOCK RATES. 

1916 6. FOR DIAGNOSTIC CHECKOUT OF DH11-AA, ARB. OR AC. REPLACES ™971 

1917 WITH M974. 

1919 . THIS SLOT CONTAINS MODEM CONTROL MODULE M7807 WITH DH17-AD. 

1921 . THIS SLOT CONTAINS MODEM CONTROL MODULE M7808 WITH DH11-AD. 

1923 . THIS SLOT CONTAINS EIA CONVERTER AND PRIORITY MODULE 5906 

199% FOR DH11-AD OR AE. 


CZDHN=D MACY11 30A(1052) 


CZDHND .P11 


27=DEC=78 15 


eg eet 78 15:31 PAGE 46 


6.0 


MAINTENANCE PROCEDURES 


THIS SECTION OUTLINES SOME GENERAL TECHNIQUES FOR 
USING CZDHND FOR MAINTENANCE AND CHECKOUT OF THE 

DH11 SUBSYSTEM. SINCE THIS PROGRAM DOES NOT TEST ALL POSSIBLE 
DH11 FEATURES (BREAK ,AUTO-ECHO, HALF DUPLEX ETC.) THE USER 
MUST ALSO RUN THE DIAGNOSTIC, MD-11-DZDHM, PRIOR TO 

USING THIS PROGRAM TO INSURE COMPLETE CHECKOUT AND VERIFI- 
CATION OF THF DH11 HARDWARE. 


MAINTENANC! CONNECTORS 


BOTH THE DATA RELIABILITY AND PATTERNS/CABLE SUB- 
PROGRAMS REQUIRE THAT THE USER INSTALL THE APPROPRIATE MAINTEN- 
ANCE JUMPERS OR MODULES BEFORE RUNNING THE PROGRAM. DEPEND- 
ENT UPON THE SPECIFIC DH11 CONFIGURATION AND THE TYPE OF TEST- 
ING DESIRED, CERTAIN MAINTENANCE AIDS MUST BE 
INSTALLED AS OUTLINED BELOW: 


A. DH11-AA, AB, OR AC CONFIGURATIONS 


1) TESTING LOGIC FOR ALL LINES WITHOUT DATA CABLES 
OR LEVEL CONVERTERS 


A. REMOVE THE DATA CABLE FROM SLOT B7 IN EACH 
DH11 TO BE TESTED. 

B. INSTALL AN M974 MAINT JUMPER MODULE INTC 
SLOT B7 OF EACH DH11 TO BE TESTED. 


2) TESTING ALL 16. LINES INCLUDING DATA CABLES 
WHICH CONNECT TO DISTRIBUTION PANEL. DOES NOT 
TEST LEVEL CONVERTER CIRCUITS LOCATED IN DIS- 
TRIBUTION PANEL. 


A. INSTALL THE M974 MAINT JUMPER MODULE INTO SLOT B3 
OF THE MULTIPLEXOR DISTRIBUTION PANEL FOR EACH 
DH11 TO BE TESTED. 


TESTING ONE OR MORE SINGLE LINES INCLUDING EIA LEVEL 
CONVERTERS AND DEVICE CABLES WHICH ARE NOT TESTED 
IN 1 AND 2 ABOVE. 


—_ 


3 


A. INSTALL AN H315 TEST CONNECTOR AT THE END OF THE 
DEVICE CABLE FOR EACH LINE TO BE TESTED. 


8. DH11-AD CONFIGURATION 
1. TESTING ALL 16. LINES WITHOUT DATA CABLES 
A. DISCONNECT THE DATA CABLES (2) FROM THE TwO 


CONNECTORS ON THE M5906 MODULE (SLOT AB? OF 
THE DH11 BACKPLANE. . 
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4 DAT 


A. 


= 


SEQ 0046 


B. INSTALL TWO H8611 TEST CONNECTORS ON THE M5906 
IN PLACE OF THE CABLES. 


2. TESTING ONE OR MORE SINGLE LINES INCLUDING DATA CABLES 


A. DISCONNECT THE DEVICE CABLE FROM THE DH11-AD 
DISTRIBUTION PANEL FOR EACH LINE TO BE TESTED. 


B. INSTALL AN H315 TEST CONNECTOR IN ITS PLACE 
ON THE DH11~-AD DISTRIBUTION PANEL. 


TO TEST THE DEVICE CABLE AS WELL, INSTALL 
THE H3515 TEST CONNECTOR AT THE END OF THE 
DEVICE CACLE AND LEAVE THE DEVICE CABLE 
CONNECTED TO THE DISTRIBUTION PANEL. 


A RELIABILITY TESTING 


NOTE: 


COMPLETE RELIABILITY TESTING (OVER NIGHT RUNS) 


1) SET UP THE TEST JUMPERS AS REQUIRED FOR THE PARTICULAR 
CONFIGURATION TO BE TESTED. (REFER TO PARA 6.1) 

2) LOAD CZDHND AND START IT AT LOC 090200(8). 

3) TYPE IN THE DESIRED DH11 PARAMETERS - SET THE SR=000200 
AND LET THE PROGRAM RUN. 


A COMPLETE TEST RUN FOR 16. LINES ON EACH DH11 WILL 
TAKE APPROX 4 HOURS (TWO DH11°S WOULD TAKE 8. HOURS) ETC. 


AT THE COMPLETION OF TESTING FOR EACH DH11 THE ERROR 
STATISTICS TABLE WILL BE TYPED OUT. 


4) LET THE PROGRAM RUN AT LEAST ONE PASS (4 HRS/DH11) 
PREFERABLY OVERNIGHT, AND THEN ANALYZE ANY ERROR 
PRINTOUTS AND THE ERROR STATISTIC TABLE DATA, 

5) IF ERRORS OCCUR IT SHOULD BE SIMPLE FOR THE USER TO 
DETERMINE WHICH LINE, WHICH DH11, AND THE FAILING MODES. 
OF OPERATION TO AID IN FAULT ISOLATION. 


QUICK DATA RELIABILITY TESTING 


1) FOLLOW THE SAME PROCEDURE AS IN PARA 6.2(A) ABOVE EXCEPT 
SET THE SR=000000(8) BEFORE STARTING THE RUN. 


THE QUICK TESTS VERIFY ALL COMBINATIONS OF LINE 
PARAMETERS ON ALL LINES AT 9600. BAUD ONLY. ALL 
OTHER BAUD RATES ARE TESTED WITH 5 BIT CHARS, 
ONE STOP BIT, AND ODD PARITY ONLY. 


2) THE QUICK TEST TAKES APPROX. 15 SECONDS PER LINE SO 
‘ aac 16. LINES) COULD BE TESTED IN APPROX 


3) THE ERROR INFORMATION PROVIDED IS IDENTICAL TO THAT 
FOR THE COMPLETE TEST EXCEPT LESS TOTAL DATA TRANSFERS 





1 4 

CZDHN=D MACY11_ 30A(1052) 27=DEC-78 15:31 PAGE 48 . 
CZDHND.P11  27=DEC-78 15:28 SEQ 0047 

2038 OCCUR. 

2039 

2040 6.3 DATA PATTERNS TESTING 

ee ee | I i eneenneeaninee 

2042 . 

2043 THE DIAGNOSTIC, MD-11-DZDHM, AND THE DATA RELI- 

2044 ABILITY TESTS USE ONLY A BINARY UP COUNT PATTERN FOR DATA 

2045 TESTING WITH A MAXIMUM BUFFER SIZE OF 256. BYTES. TO PRO- 

2046 VIDE DIFFERENT DATA PATTERNS, THE USER CAN RUN THE DATA 

2047 PATTERNS/CABLE TESTS. THESE TESTS ALLOW HIM TO SIT AT THE 

2048 CONSOLE TERMINAL AND TEST EACH LINE INDIVIDUALLY WITH VARIOUS 

2049 PARAMETERS, DATA PATTERNS, BUFFER SIZES, ETC. 

2051 1) SET UP THE TEST JUMPERS FOR THE LINES TO BE TESTED AS 

2052 DESCRIBED IN PARA 6.1. 

2054 2) LOAD CZDHND AND START IT AT LOC 000220(8) 

2055 TO RUN THE DATA PATTERNS TESTS. 

2057 3) REFER TO PARA 2.1.2.3 FOR THE OPERATING INSTRUCTIONS. 

2059 4) ONCE A FAILING PATTERN TEST IS FOUND, THE USER CAN 

2060 RECONFIGURE THE TEST JUMPERS TO ISOLATE THE FAULT TO 

2061 EITHER THE DH11 OR A FAULTY CABLE AND/OR CONNECTOR. 

2063 6.4 ECHO TESTING 

May Se A a OS omental 

2065 

2066 THESE TESTS ALLOW THE USER TO CONNECT AN ASYNCHRONOUS 

2067 TERMINAL TO THE DH11 DISTRIBUTION PANEL AND VERFIFY THE 

2068 PARTICULAR LINE AS IT MIGHT BE USED ON-LINE. REFER 10 

2069 PARA 2.1.2.2 FOR THE OPERATING INSTRUCTIONS FOR THE DH11 

2070 ECHO TEST. 

2071 

2072 


2073 a 
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2074 ~NLIST CND,MD,MC 
2075 ines TOC ME ,SEQ,BIN 
2076 165000 $SWR= 165000 
2077 
2078 : -ENABLE ABS 
2079 ~TITLE CZDHN=-D 
2080 >*COPYRIGHT (C) 1977 
2081 :*DIGITAL EQUIPMENT CORP. 
Saee :*MAYNARD, MASS. 01754 
Be er BY ED CROWLEY 
2086  STHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
int « PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
089 000001 $TN= 1 
oa -SBTTL OPERATIONAL SWITCH SETTINGS 
2092 ; :* SWITCH USE 
2093 CTT men eww e nnn nnn- == 
2094 :* 15 HALT ON ERROR 
2095 3” 14 LOOP ON TEST 
2096 -* 13 INHIBIT ERROR TYPEQUTS 
2097 :* 11 INHIBIT ITERATIONS 
| aan 38 9 LOOP ON ERROR 
2099 -SBTTL ACT11 HOOKS 
2100 
2101 5 REAR ARAREAHAERARRERARRARREREEARRAKERAREREREREREREETERE 
2102 sHOOKS REQUIRED BY ACT11 
2103 000000 $SVPC=. SAVE PC 
2194 000046 -=46 
2105 000046 120C00 120000 321)SET LOC.46 TO ADDRESS OF 120000 
2106 000052 ~=52 
2107 000052 000000 .WORD OQ scar SET LOC. noe TO ZERO 
2108 000000 .=$SVPC 32 RESTORE P 
494 .SBITL APT PARAMETER BLOCK 
2117 DEAR AAAERAAARARAEARERAEERREAAARAREERARARERRERARERRAEREE EERE EE 
2112 :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
2113 :: PEAK EAAERERAAARAEREAERRAEAAARARRAARRARERERERRRERARERERERERE REESE 
2114 000000 -$X=,  ;;SAVE CURRENT LOCATION 
2115 000024 ~=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
2116 000024 000200 200 -FOR APT START UP 
2117 000044 .=44 :zPOINT TO APT INDIRECT ADDRESS PNTR. 
2118 000044 000000 $APTHDR ::POINT TO APT HEADER BLOCK 
2119 000000 ~=.$X * TRESET LOCATION COUNTER 
2120 J LRA AEREAREAEEARARARAETRRRRARERERRERRRRERRREERERREEE 
2121 ; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
2122 S INTERFACE SPEC. 
2123 | 
2124 000000 $SAPTHD: 
2125 000000 000000 $HIB'S: .WORD 0 ‘7s HIGH BITS OF 18 BIT MAILBOX ADDR. 
2126 000002 001232 SMBADR: .WORD $MAIL Bayt tS OF APT MAILBOX (BITS 0-15) 
2127 000004 001604 STSTM: .WORD 1604 ;7RUN TIM OF LONGEST TEST 
2128 000006 001604 SPASTM: .WORD 1604 ‘TRON TIME IN SECS. OF 1ST PASS ON 17 UNIT (QUICK VERIFY) 


2129 000010 001604 SUNITM: .WORD 1604 ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
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2130 000012 000056 
2131 
2132 
2135 000000 
2134 
2155 
2136 
2137 000174 
2138 000174 000000 
ages 000176 00000uU 
2141 000200 000137 
2142 
2145 000204 000137 
2144 000210 000137 
2145 900214 000137 
2146 000220 000137 


27=DE(-78 
15:28 


016160. 


001576 
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RD  $ETEND-$MAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


WO 
.SBTTL TRAP CATCHER 


=Q 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *',4#2,HALT’’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: #LOCATION, Q/ CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 :; SOFTWARE DISPLAY REGISTER 
SWREG: . WORD ;; SOFTWARE SWITCH REGISTER 


0 
.SBTITL STARTING ADDRESS(ES) 
JMP a4 I NPARX -;JUMP TO STARTING ADDRESS OF PROGRAM 


»BEGIN EXECUTION WITH DEFAULT PARAMETERS 
: INPUT PARAMETERS - pay SELECTION ONLY 
:GO START LINE ECHO TEST 


JMP aE XPAT ;GO START DATA PATTERNS TESTS 
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BASIC DEFINITIONS 


-SBTTL BASIC DEFINITIONS 
ca. he OF THE STACK POINTER *** 1100 «#« 


STACK= 

-EQUIV) EMT,ERROR ; «BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE > sBASIC DEFINITION OF SCOPE CAiL 
:*MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 


SEG 0050 


Lf= 12 ;:; CODE FOR LINE FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;:CODE FOR CARRIAGE RETURN-“LINE FEED 
PS= 177776 :;PROCESSOR STATUS WORD 


EQUIV PS,PSW 

STKLMT= 177774 ::STACK LIMIT REGISTER 

PIRQ= 177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
: sHARDWARE SWITCH REGISTER 


DSWR= 77 
DDISP= 177570 : sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 ; GENERAL REGISTER 


R1= %41 3: GENERAL REGISTER 
R2= %2 3: GENERAL REGISTER 
R3= %3 7; GENERAL REGISTER 
R4= %4 ; GENERAL REGISTER 
R5= %5 3;GENERAL REGISTER 
R6= X%6 > GENERAL REGISTER 
R7= %7 >; GENERAL REGISTER 
SP= %6 : STACK POINTER 
PC- %7 3;PROGRAM COUNTER 
>*PRIORITY LEVEL DEFINITIONS 

PRO= 0 : PRIORITY LEVEL O 
PR1= 4G : PRIORITY LEVEL 1 
PR2= 100 ; PRIORITY LEVEL 2 
PR3= 140 : PRIORITY LEVEL 3 
PR4= PRIORITY LEVEL 4 
PR5= 240 ::PRIORITY LEVEL 5 
PR6= 300 : PRIORITY LEVEL 6 
PR7=- 340 :zPRIORITY LEVEL 7 
3*' ‘SWITCH REGISTER’ SWITCH DEFINITIONS 
SW15= 100000 

SW14= 4 

SW13= 29000 

SWi2= 10 

SW11= 4000 

SW10= 2000 

SwWO9= 1000 

SwWO8= 400 

SWO7= 200 

SWO6= £100 

SWOS5= 4 

SWO4= 20 

SWwO35= 10 

SWO2= 4&4 
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CZDHND .P11 27-DEC-78 15:28 BASIC DEFINITIONS SEQ 005i 
2203 000002 SWO1= 2 
2204 000001 SWwOO= 1 
2205 -EQUIV SW09,SWw9 
2 ~ECUIV Sw08,Sw8 
2207 -EQUIV SWO7,SW7 
2208 -EQUIV SW06, SW 
22 -EQUIV SWO05,SW5 
2210 EQUIV SW04,SW4 
2211 EQUIV Sw03,Sw3 
2212 EQUIV SWO02,SW2 
2215 EQUIV Sw01,SW1 
ssie -EQUIV SWw00,SWO 
2216 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
2217 BIT15= 
2218 040000 BIT14= 
2219 020000 BIT13= 20000 
2220 010000 BIT12= 10000 
2221 004000 BIT11= 4000 
2222 2000 BIT10= 0 
2225 001000 BITO9= 1000 
2224 00 BITO8= 400 
2225 000200 BITO7= 200 
2226 000100 BITO6= 100 
2227 0 BITO5= 
2228 000020 BITO4= 20 
22 000010 BITO35= 10 
22 0C 004 BITO2= 4 
2231 000002 BITOI= 2 
2232 000001 BITOO= 
2235 -EQUIV BITO9,BIT9 
22 -EQUIV BITO8,BIT8 
2235 -EQUIV BI1T07,B1T7 
2236 -EQUIV BIT06, 
2237 -EQUIV BITOS.BITS 
2238 EQUIV BIT 
2239 -EQUIV BIT03,BITS 
2240 -EQUIV BITO2, 
2241 -EQUIV BITO1,B1T1 
06 -EQUIV BITOO,BITO 
2244 :*BASIC *'CPU'' TRAP VECTOR ADDRESSES 
2245 000004 ERRVEC= 4 > TIME QUT AND OTHER ERRORS 
2246 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
2247 000014 TBITVEC=14 sc. 7" BIT 
2248 000014 TRIVEC= 14 ; TRACE pred 
2249 000014 BPTVEC= 14 : ;BREAKPOINT TRAP (BPT) 
2250 000020 IOTVEC= 20 ‘7 eee awe TRAP (IOT) **SCOPE** 
2251 000024 PWRVEC= 24 R FAIL 
2252 000030 EMTVEC= 30 ; ;EMULATOR TRAP (EMT) **ERROR** 
2255 000034 TRAPVE C=34 ei sive TRAP 
2254 000060 TKVEC= 60 KEYBOARD VECTOR 
2255 000064 TPVEC= 64 etry PRINTER VECTOR 


2256 000240 BIRQVEC=240 ; PROGRAM INTERRUPT REQUEST VECTOR 
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COMMON TAGS 


.SBTTL COMMON TAGS 


5 KK KKK MEKEAKKMA MK 


‘RTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
SCMTAG: wie 0 ;zSTART OF COMMON TAGS 
STSTNM: BYTE 0 3; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
SICNT: .WORD 0 ;;CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 3;CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 ;:CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ;zCONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 ; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 3: CONTAINS PC OF LAST ERROR INSTRUCTION 
S$GDADR: .WORD 0 ;:CONTAINS ADDRESS OF ‘GOOD' DATA 
DADR: .WORD 0 3; CONTAINS ADDRESS OF ‘BAD’ DATA 
SGDDAT: .WORD 0 7:CONTAINS ‘GOOD’ DATA 
SBDDAT: .WORD 0 7: CONTAINS ‘BAD’ DATA 
‘a : 3 zRESERVED--NOT TO BE USED 
SAUTOB: .BYTE 0 i AUTOMATIC MODE INDICATOR 
SINTAG: gk . 32 INTERRUPT MODE INDICATOR 
: D DSWR ; ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 
TKS: 177560 seTTy KBD STATUS 
$TKB: 177562 : TTY KBD BUFFER 
$STPS: 177564 *:TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 eeTTy PRINTER BUFFER REG. ADDRES 
$NULL: .BYTE 0 ca TAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 7 CONTAINS # OF FILLER CHARACTERS go 
SFILLC: .8YTE 12 +3 INSERT FILL CHARS. AFTER A ‘LINE FEE 
STPFLG: .BYTE 0 :""TERMINAL AVAILABLE'’ FLAG (GIT CO7>c6- YES) 
EGAD: .WORD 0 >: CONTAINS THE ADDRESS FROM 
7;Z7WHICH (S$REGO) WAS SETAINED 
SREGO: .WORD 0 ZZ: CONTAINS (($REGAD) +0) 
SREG1: .WORD 0 3 CONTAINS (($SREGAD) +2) 
SREG2: .WORD 0 3; CONTAINS ((SREGAD)+4) 
SREGS: .WORD 0 ; CONTAINS (($REGAD) +6) 
SREG4: .WORD 0 7; CONTAINS ((S$REGAD) +10) 
SREGS: .WORD 0 :: CONTAINS (($REGAD) +12) 
SREG6: .WORD 0 7: CONTAINS (($REGAD) +14) 
SREG/: .WORD 0 7 CONTAINS (($REGAD) +16) 
STMPO: .WORD 0 7 USER DEFINED 
STMP1: .WORD 0 ; USER DEFINED 
STMP2: .WORD 0 3Z7USER DEFINED 
STMP5: .WORD 0 : USER DEFINED 
STMP4: .WORD 0 7 USER DEFINED 
STMPS5: .WORD 0 3 USER DEFINED 
STMP6: .WORD 0 :;USER DEFINED 
$TMP7: .WORD 0 R DEFINED 
S$TIMES: 0 . NUMBER OF ITERATIONS 


SEQ 0052 
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D 27-DEC- 
2313 001224 

2314 001226 077 
2315 001227 015 
2316 001230 000012 
2317 

2318 

2319 

2520 

2321 

2322 001232 

2323 001232 000000 
2324 0012 000000 
2325 0012 000000 
2326 001240 000000 
2327 001242 000000 
2328 001244 000000 
2329 001246 000000 
2530 001250 000000 
2531 001252 

2332 901252 000 
2335 001253 000 
2334 001254 

2335 001256 000000 
2356 001260 

2337 

2338 

2359 

2340 

2341 

2342 

2343 001262 000 
2344 001263 000 
2345 

23546 

2347 

2348 

2349 001264 000000 
2350 

2351 001266 000 
2352 001267 000 
2353 001270 000000 
2354 001272 000 
2355 001273 000 
2356 001274 000000 
2357 001276 000 
2358 1277 000 
2359 1300 000000 
2360 001302 000000 
2361 1304 000000 
2362 1306 000000 
2363 001310 000000 
2364 001312 000000 
2365 001314 000000 
2366 007316 000000 
2367 001320 000000 
2368 097322 000000 
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5:28 COMMON TAGS 
SESCAPE :0 + sESCAPE ON ERROR ADDRESS 
$QUES: .ASCII /?/ sQUESTION MARK 
$CRLF: .ASCII <15> i: CARRIAGE RETURN 
SLF : ASCIZ <12> 7sLINE FEED 
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~SBTTL APT MAILBOX-ETABLE 
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EVEN 
SMAIL: 7;APT MAILBOX 
SMSGTY: .WORD AMSGTY :;:MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
STESTN: .WORD ATESTN’ ;;: TEST ER 
SPASS: .WORD APASS --~ :;:PASS COUNT 
$SDEVCT: .WORD ADEVCT + sDEVICE COUNT 
SUNIT: .WORD AUNIT :; UNIT B 
SMSGAD: .WORD AMSGAD' ;:;MESSAGE ADDRESS 
SMSGLG: .WORD AMSGLG :: GE LENGTH 
SETABLE: 7;APT ENVIRONMENT TABLE 

ENV: BYTE AENV > ENVIRONMENT BYTE 
SENVM: .BYTE AENVM ~~ ;;ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
SUSWR: .WORD AUSWR : ;USER SWITCHES 
SCPUOP: .WORD ACPUOP TYPE ,OPTIONS 
:* BITS 15=11=CPU TYPE 
7* A = ww A beoub? a lage =03,11/40=04,11/45=05 
** — 
;* BIT 10=REAL TIME CLOCK 
3* BIT 9=FLOATING POINT PROCESSOR 

* BIT 8=MEMORY MANAGEMENT 
$SMAMS1: .BYTE AMAMS1 ;:;:HIGH ADDRESS.M.S. BYTE 
SMTYP1: .BYTE  AMTYP1 ;;MEM. TYPE,BL 

:* MEM.TYPE BYTE == (HIGH BYTE) 

;* * 900 NSEC CORE=001 

3* 300 C BI =002 

3* 500 NSEC MOS=003 
SMADR1: .WORD AMADR1 ;;:HIGH ADDRESS. BLKA1 

;* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 

2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

SMTYP2: .BYTE  AMTYP2 > 2 MEM. TYPE .BLKA2 
Suet - WORD 3 ZMEM.LAST ADDRESS,BLKA&2 
SMAMS3: .BYTE AMAMS: > sHIGH ADDRESS .M. S.BYTE 
SMTYP3: .BYTE AMTYP3 ;::MEM. TYPE .BLKAS 
SMADR3: .WORD AMADR3 >7MEM.LAST ADDRESS .BLK&3 
SMAMS4: .BYTE :;HIGH ADDRESS.M.S.BYTE 
SMTYP4: .BYTE AMTYP4 ;:MEM. TYPE, 4 
SM4DR4: .WORD 3 :MEM.LAST ESS, 
SVECT1: .WORD AVECT1 ;:: INTERRUPT VECTOR#1,BUS PRIORITYA1 
SVECT2: .WORD AVECT2 ;:: INTERRUPT VEC TOR#2BUS PRIORI TY#2 
S$BASE: .WORD SE 3;BASE ADDRESS OF EQUIPMENT UNDER” TEST 
SDEVM: .WORD ADEVM  ::DEVICE MAP 
$CDW1: .WORD ACDw1 ; ;CONTROLLER | DESCRIPTION WORD#’ 
$CDW2: .WORD ACDW2 + TROLLER DESCRIPTION WORD#&2 
SDDWO: .WORD D : DEVICE DESCRIPTOR WOR 

$DDW1: .WORD DwW1 s ICE DESCRIPTOR WORDA1 

$DPW2: .wuRD ADDW2 + DEVICE DESCRIPTOR WORDA2 


SEQ 0053 
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CZDHND P17 27=DEC-78 15:28 


2369 001324 000000 
seou 001326 


15:31 PAGE 55 


APT MAILBOX~E TABLE 


$DDW5: .WORD ADDwW3 
SETEND: 
-MEXIT 


>sDEVICE DESCRIPTOR WORDAS 


SEQ 0054 


CZDHN=D MACY11 30A(1052) 
27=DEC=-78 15:28 


CZDHND .P11 


001326 


022434 


022576 


022606 


022576 


022745 


27=DEC-78 


15:31 PAGE 56 





SEQ 0055 


ERROR POINTER TABLE 
.SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE sear s PERTINENT. 
: *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRP 


= *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

:* EM ;;POINTS TO THE ERROR MESSAGE 

y* DH :;:POINTS TO THE DATA HEADER 

.* DT ::POINTS TO THE DATA 

:* DF ;z;POINTS TO THE DATA FORMAT 

SERRTB: 

sERROR TABLE ITEM FOR ERROR 1 
EM1 ;''NON EX MEMORY ERROR - DROPPED LINE # °°’ 
DH1 :*" (PC) CURLPR DEVADR REGADR'- WAS S/B*’ 
DT1 =" SERRPC, CURLPR , $REG1, $REG2, S$REG3, $REG4 
DF2 :PRINT ALL OCTAL 

sERROR TABLE ITEM FOR ERROR 2 
EM2 2, TRANSMI TTER FALSE INTERRUPT - DROPPED LINES ** 
DH1 (PC) CURLPR DEVADR REGADR WAS S/B** 
DT1 SSERRPC. CURLPR ,SREG1, SREG2, SREG3. SREG4 
DF2 ;PRINT ALL OC TAL 

ZERROR TABLE ITEM FOR ERROR 3 
EM3 ee ACTIVE REGISTER ERROR - DROPPED LINE # “** 
DH1 CURLPR DEVADR REGADR WAS S$/B°* 
DT1 « SERRPC. CURLPR ,SREG1 . SREG2. SREG3. SREG4 
DF2 ;PRINT ALL OC TAL 

sERROR TABLE ITEM FOR ERROR 4 
EMS Btls COUNT REGISTER Fag DROPPED LINE # “° 
DH1 =** (pe CURLPR DEVADR REGADR WAS $/B°° 
DT1 S SERRPC. CURLPR, SREG1, SREG2. SREG3. SREG4 
DF2 *PRINT ALL OCTAL 

sERROR TABLE ITEM FOR ERROR 5 
EMS 3, CURRENT ADDRESS REGISTER ERROR - DROPPED LINE # “" 
DH1 (PC) CURLPR DEVADR REGADR- WAS $/B"" 
DT1 “SERRPC, CURLPR ,SREG1 .SREG2. SREGS, SREG4 
DF2 “PRINT ALL OCT. AL 

ZERROR TABLE ITEM FOR ERROR 6 
EM6 id OVERFLOW ERROR - sa <4 LINE # “ 
DH1 (PC) CURLPR DEVADR REGADR WAS $78" 
DT1 “SERRPC, CURLPR, SREG1. SREG2, SREG3. SREGS 


CZDHN=D MACY11 30A(1052) 
CZD 


HND P11 27=DEC-78 15:28 


001404 


022576 


023153 


022576 


023227 


022576 


023432 
023472 
023540 
022576 


000000 


000000 
023554 
023574 


022576 


023714 


022576 


023742 
024014 
024074 


15:31 PAGE 57 
ERROR POINTER TABLE 


DF? sPRINT ALL OCTAL 
;ERROR TABLE ITEM FOR ERROR 7 


27~DEC~78 
SEQ 0056 


EM7 ;| RECEIVER FALSE INTERRUPT - LINE # °' “| 
DH1 PC) CURLPR DEVADR REGADR WAS S/B"" ‘ 
O11  SERRPC. CURLPR,$REG1,$REG2, $REG3, $REG4 
DF2 “PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 10 
EM10 ;""INVALID DATA IN SILO = DROPPED LINE # *’ 
DH2 (PC)  CURLPR CHAR # WASADR SHBADR WAS S/R’ 
DT2 ; SERRPC , CURLPR, SREGO, SREG1 , $REGZ, $REG3, SREGS 
DF2 :PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 11 
EM11 :"DATA ERROR - LINE # °° 
DH2 ; (PC)  CURLPR. CHAR # WASADR SHBADR WAS S/R*’ 
DT2 ; SERRPC,CURLPR, $REGO, $REG1, $REG2. $REG3, SRECA 
DF 2 :PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 12 
EM12 :""TEST TIMEOUT ~ DROPPED LINE # *” 
DH3 (PC)  CURLPR RTOTAL XTOTAL RDONE"’ 
DT3 =" SERRPC, CURLPR,$TMPO, $TMPTRDONE"’ 
DF2 :PRINT ALL OCTAL 
;ERROR TABLE ITEM FOR ERROR 13 
0 ZNO MESSAGE 
0 :NO DATA HEADER 
DTS STMPO,STMP1,$TMP2,$TMP3,STMP4. STMPS. STMP6 
DF1 “ PRINI ALL DECIMAL 
;ERROR TABLE ITEM FOR ERROR 14 
EM14 :"BUS ERROR TRAP TO 04°" 
DH4 :"* (PC) (PS) (SP) TRAPPC TRAPPS"* 
DT5 7 SERRPC,.STMFO, SREG6, $REG1, $REG2"" 
DF2 :PRINT ALL OCTAL 
;ERROR TABLE ITEM FOR ERROR 15 
EM15 :"RSVD INSTR TRAP TO 10°" 
DH4 (PC) (PS) (SP) TRAPPC TRAPPS'* 
DT5 “ $ERRPC., STMPO, SREG6.$REG1. $REGO” 
DF2 [PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 16 
EM16 :"'SINGLE LINE ECHO TEST - INTR WAIT TIMEQUT"’ 
DHS (PC) DEVADR LINE (SCR) CURLPR EXFLAG’” 
DT6 “ $ERRPC., $REG1.LINE, STMBO. CURLPR.EXFLAG'” 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND P11 


001504 


022576 


024112 


022576 


024240 
024154 
024224 
022576 


024302 
024154 
024224 
022576 


024 346 
024154 
024224 
022576 


024404 
024154 
024224 
022576 


024442 


022576 


024501 
024534 
024614 
022576 


005000 
005067 


27-DEC-78 


0201C2 


15:31 PAGE 58 
ERROR POINTER TABLE 


DF2 sPRINT ALL OCTAL 
sERROR TABLE ITEM FOR ERROR 17 


SE2 0057 


EM17 AL TERNAT ING 1/0 PATTERN TEST DONE’’ 
DH6 (PC) DEVADR LINE CURLPR ICOUNT’’ 
DT7 “ SERRPC, DHADR,LINE, CURLPR, $REGO 
DF2 :PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 20 
EM20 :' BINARY UP COUNT PATTERN TEST DONE’’ 
DH6 :'" (PC)  DEVADR LINE  CURLPR  I[COUNT’’ 
DT7 : SERRPC ,DHADR, LINE, CURLPR, $REGO 
DF2 =PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 21 
EM21 :" BINARY DOWN COUNT PATTERN TEST DONE’’ 
DH6 7" (PC) DEVADR LINE  CURLPR ICOUNT’’ 
DT7 > SERRPC ,DHADR, LINE, CURLPR.$REGO 
DF2 :PRINT ALL OCTAL 
ERROR TABLE ITEM FOR ERROR 22 
EM22 7" RANDOM DATA PATTERN TEST DONE’’ 
DH6 7" (PC) DEVADR LINE CURLPR iCOUNT’’ 
DT7 > SERRPC ,DHADR, LINE. CURLPR. $REGO 
DF 2 >PRINT ALL OCTAL 
sERROR TABLE ITEM FOR ERROR 23 
EM23 : SINGLE CHAR PATTERN TEST DONe*’ 
DH6 7" (PC) -DEVADR LINE CURLPR ICOUNT*’ 
DT7 * SERRPC. DHADR,LINE, CURLPR. SREGO 
‘DF2 *PRINT ALL OCT TAL 
ZERROR TABLE ITEM FOR ERROR 24 
EM24 ;’"TYPED BUFFER PATTERN TEST DONE" 
DH6 °° (PC) DEVADR LINE CURLPR ICOQUNT™ 
DT7 RRPC ,DHADR, LINE, CURLPR, SREGO 
- DF2 * PRINT ALL OC TAL 
7ERROR TABLE ITEM FOR ERROR 25 
EM25 :' DATA PATTERNS TEST TIMEOuT'' 
DH7 *' (PC) DEVADR LINE  CURLPR 1COUNT PATCDE"* 
D110 ; SERRPC ,DHADR,L INE, CURLPR, $REGO.S$REG1 
DF2 >PRINT ALL OCTAL 
BEGIN: CLR RO INIT RQ TO INDICATE DEFAULT PARAME TERS 
CLR VCFLG sINIT VECTOR ADDR SET UP FLAG 


iy 


CZDHN=D MACY11 30A(1052) 27-DEC=78 15:31 PAGE 59 


CZDHND.P11 27=DEC-78 15:28 ERROR POINTER TABLE SEQ 0058 
2540 001604 005067 020530 CLR DPFLG ;CLEAR DATA PATTERNS TEST FLAG 
2941 001610 005067 020536 CLR RETFLG ;CLEAR ECHO TEST RETURN FLAG 
2542 007614 005067 020510 BEGINA: CLR TITFLG sINIT TITLE MESSAGE FLAG 
2545 ~SBTTL INITIALIZE THE COMMON TAGS 
2544 | ssCLEAR THE COMMON TAGS (S$CMTAG) AREA 
2545 001620 012706 001100 MOV A$CMTAG,R ;sFIRST LOCATION TO BE CLEARED 
2546 001624 005026 CLR (R6) + :-CLEAR MEMORY LOCATION 
2547 1626 022706 001140 — CMP ASWR,R6 ; ; DONE? 
2548 001632 001374 _ -~6 ;sLOOP BACK IF NO 
2549 1634 2706 001100 #STACK,SP ;sSETUP THE STACK POINTER 
2550 s INITIALIZE A FEW VECTORS 
2551 001640 012737 011076 000020 ASSCOPE ,a#IOTVEC +; 10T VECTOR FOR SCOPE ROUTINE 
2552 1646 012737 000340 000022 MOV #340 ,a#IOTVEC+2 ;:LEVEL 7 
25535 001654 012737 011342 000030 MOV #$ERROR , AMEMTVEC se ue VECTOR FOR ERROR ROUTINE 
2554 1662 012737 000340 000032 MOV #340, aWEMTVEC+2 ;:LEVEL 7 
2555 001670 012737 014312 000034 MOV #STRAP , AATRAPVEC :2TRAB VECTOR FOR TRAP CALLS 
2556 001676 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVEL 7 
2557 001704 012737 014376 000024 MOV #SPWRDN, @APWRVEC’ ; :POWER FAILURE VECTOR 
2558 001712 012737 000340 000026 MOV #340, a#PWRVEC+2 ; LEVEL 7 
2959 001720 005067 177276 CLR $TIMES ssINITIALIZE NUMBER OF ITERATIONS 
2560 001724 5067 177274 CLR SESCAPE ;-CLEAR THE ESCAPE ON ERROR ADDRESS 
2561 001730 112767 000001 177157 MOVB te ap tee > ALLOW ONE ERROR PER TES 
2562 001736 012767 001736 177142 MOV . +s INITIALIZE THE LOOP ADDRESS FOR SCOPE 
2563 001744 012767 001744 177136 MOV LPERR SETUP THE ERROR LOOP ADDRESS 
2564 :zSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
2565 ;;EQUAL TO A *~1"', SETUP FOR A SOFTWARE SWITCH — 
2566 001752 013746 000604 MOV @AERRVEC ,- (SP) ahs ERROR VECT 
2567 001756 012737 G02012 000004 MOV #64$ , AHERRVEC es T UP ERROR VECTOR 
568 001764 012767 177570 177146 MOV #DSWR, SWR SETUP FOR A HARDWARE SWICH REGISTER 
2569 001772 012767 177570 177142 MOV #DDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
2570 002000 022777 177777 177132 CMP #~1 ,aSWR 7sTRY TO REFERENCE HARDWARE Sw 
2571 002006 001012 BNE 66$ 7 IF NC TIMEOUT TRAP OCCURRED 
2572 THE SWR IS NOT = -1 
2573 002010 BR $5$ >;BRANCH IF NO TIMEOUT 
soe pe hb 012716 002020 64$: Th #65$%, (SP) 7:SET UP FOR TRAP RETURN 
2576 002020 012767 000176 177112 65$: MOV ASWREG, SWR :sPOINT TO SOFTWARE Swe 
2577 002026 012767 000174 177106 MOV #DISPREG, DISPLAY 
ae 002034 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
2580 002040 005067 177174 CLR SPASS seth PASS COUNT 
2581 2044 132767 000200 177201 BITB WAPTSIZE.SENVM ;;TEST USER SIZE UNDER APT 
2582 002052 001403 BEQ 67$ YES.USE NON-APT SWITCH 
2583 2054 012767 001254 177056 MOV #SSWREG , SWR = INO. USE APT Switch REGISTER 
2584 002062 67$: 
2585 -SBTTL GET VALUE FOR SOFTWARE ry REGISTER 
2586 002062 005737 000042 TST a42 E WE RUNNING UNDER XXDP/ACT? 
2587 001012 BNE 68$ :;BRANCH IF YES 
2588 002070 126727 177156 000001 CMPB SENV 41 ;¢ARE WE RUNNING UNDER APT? 
2589 002076 14 BEQ 68$ : BRANCH IF YES 
2590 002100 026727 177034 000176 CMP SWR ,ASWREG + ¢ SOF TWARE SWITCH REG SELECTED? 
2591 002106 1005 BNE 69$ CH IF 
2592 002110 104406 GTSWR ::GET SOFT-SWR SETTINGS 
2593 002112 000403 BR 69$ 
2594 002114 112767 000001 177012 68$: MOVB #1 ,$AUTOB ;sSET AUTO-MODE INDICATOR 
2595 002122 69$: 


C2 
CZD 


HND .P11 


DHN=D MACY11 30A(1052) 
27-DEC=78 15:28 


012767 


024701 


27~DEC-78 


016754 
00 
020152 


020140 
000001 


012740 
017476 


000001 
017706 
013656 
017446 
020106 
002442 
020062 
003630 


177777 


014004 
013710 


021604 


017572 
000002 
000002 
000002 
017122 
017112 
017704 


612576 


175654 


175640 


176742 


176720 


017154 


017744 
017740 
017734 
017122 


017074 


15 


WH § 


SEG 0059 


SET UP THE BUS ERROR VECTOR 
SET UP THE RSVD INSTR VECTOR 


son iF a Ni TITLE ONCE ? 
:GO TYPE PROGRAM TITLE 


sSET FLAG = TYPE TITLE ONLY ONCE PER LOAD 
;DO0 WE WANT TO AUTOS!ZE? 

;BRANCH IF NOT. 

:GO AUTOSIZE. 


:START AT 200 ?7 
7BR 


IF NOT 
sARE PARAMETERS TO BE INPUT MANUALLY? 
s;BRANCH IF YES 
s OTHERWISE, GET ADDRESSES BETWEEN VECOTRS FROM AUTOSIZER 


-GO ASK FOR PARAMETERS 

sRE INIT START FLAG 

‘om TF tor ECHO TESTS ? 

sRETURN TO ECHO TEST START-uP 
>RETURN TO DATA PATTERNS TEST ? 


*BR IF NOT 
;GO BACK TO DATA PATTERNS TESTS 
;USE DEFAULT PARAMETERS ? 


:BR IF YES 
; CHANGE DH SELECT PARAM ONLY ? 
:BR IF NOT 


>GO ASK FOR SELECT PARAM. 
:GO ASK FOR ALL PARAMETERS 


>GET POINTER TO ADDRESS TABLE 
:GET POINTER TO VECTOR TABLE 
:GET POINTER TO BR LEVEL TASLE 
START WITH DH #00 

SET UP DH11 BIT TEST MARKER 


;GENERATE DH11 DEV NUMBER 
;UPDATE TABLE POINTERS 


TEST FOR SELECTED DH11 
:BR os SELECTED FOR TEST 
SHIFT MARKER TO TEST NEXT DH11 
:BR IF 16 TESTED - START OVER 
:GO_ TEST IF THIS ONE SELECTED 
SET UP DH11 ADDRESS 
T UP THE DH11 VECTOR ENTRY 
:GET BR LEVEL VALUES 
:GO SET DH NUMBER IN THE MESSAGE BUFFER 


:GO PRINT “‘TESTING DH11 &xx'' 


:31 PAGE 60 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
START1: MOV #BUSER, ERRVEC 
MOV #340, ERRVEC+2 
MOV #RESERR, RESVEC 
MOV Ssh RESVEC +2 
TST TITFLG 
BNE i 
TYPE 
TITLE 
COM TITFLG 
BIT #BITO,aSWR 
BNE 1$ 
JSR PC ,AUTOSZ 
1$: TST VCFLG 
BEQ 15$ 
BIT #BITO,aSWR 
BNE 9$ 
MOV ADRVEC,RO 
BR 10$ 
9$: JSR PC, JNPARA 
10$: CLR VCFLG 
13$: TST RETFLG 
BEQ 11$ 
JMP ECHO1 
11$: TST DPFLG 
BEQ 12$ 
JMP EXPAT1 
128: TST RO 
BEQ START2 
CMP #-1.R0 
BNE 2$ 
JMP INPAR3 
2s: JMP INPAR 
START2: MOV eee res” ,ADPTR 
MOV HVCTB~2,VCPTR 
MOV rg igh oy -BRPTR 
MOV H-7, 
MOV #1 » SELMSK 
RESTRT: INC DHNUM ° 
ADD #2. ADPTR © 
ADD #2,VCPTR 
ADD #2,BRPTR 
BIT SELMSK , DHSEL 
BNE RSTRTA 
REST1: ASL SELMSK 
BEQ START2 
BR RESTRT 
RSTRTA: MOV @ADPTR,DHADR 
MOV @VCPTR,DHVCT 
MOV @BRPTR,DHRLVL 
JSR 5, SUNUM 
DHNUM 
TITLE2+20 
TYPE 
TITLE2 


CZDHN=D MACY11 30A(1052) 
CZDHND .P11 27=DEC-78 15:28 


2652 
3 


27~DEC-78 


002450 012767 002450 


025541 
012767 


004567 
000750 
012767 
012767 


000001 
6 


017412 
003030 
017401 
016750 


012166 


000001 


002012 
001616 
012236 


021536 
0143524 


177760 
177777 


016670 
014362 


016722 
014510 
011750 
016632 
016516 
000200 
017420 
000003 
014156 


176430 


176534 


176470 


016754 


016742 
016736 


000012 


017422 
016660 


133 


31 PAGE 





I 5 


61 
GET VALUE FOR SOFTW.‘RE SWITCH REGISTER 


TEST 1 


téT1: 
STDH1: 


NEWL IN: 


'$: 


3$: 
2$: 


NEWLPR: 


NEWCL : 


NEWPAR: 


DHST1: 


1$: 


MOV 4. ,$LPADR : INIT SCOPE RETURN 

sRARERERERERRERERERERERERERERERAERER RARER EERE eneee 
SUB=PROGRAM 1 = DATA RELIABILITY TESTS 

CREEK KKK KEKE KKK KKK 

SCOPE 

MOV #1,$TIMES ;;D0 1 ITERAT!ON 

JSR PC,CLSTAT ;GO CLEAR THE STATISTICS TABLES 

JSR PC ,KYBD1 :GO SET UP FOR KEYBOARD INTRS. 

CLR QUICK : INIT THE QUICK TEST FLAG 

CLR DRPLIN : INIT DROPPED LINE FLAGS 

CLR LINE : INIT LINE NO. TO 00 

MOV DHVCT ,R2 ;SET UP THE VECTORS 

MOV ARINT1,(R2)+ :GO TO RINT? ON RCVR INTR 

MOVB DHRLVL, (R2) + ; 

TSTB (R2)+ 

MOV ATINT1,(R2)+ :GO TO TINT1 ON XMITTR INTR 

MOVB DHTLVL, (R2) 

MOV DHADR,R1 >SET UP DEVICE ADDRESS 

JSR PC ,SELINE :GO SELECT NEW LINE FOR TEST 

BR 1$ BR IF TESTED ALL SELECTED LINES 

BR 2$ -BR IF NOT DONE 

CMPB wi, SENV ; UNDER APT? 

BNE 3$ ; NO-BRANCH 

JMP ENDA : YES- SKIP STATISTICS REPORT 

JMP PRSTAT >GO CHECK AND REPORT STATISTICS 

JSR R5, SUNUM :PUT LINE NO. IN MSG 

LINE 

STMSG2+20 

TYPE : TYPE LINE NO. BEING TESTED 

STMSG2 

MOV MLPRTIAB,LPRPTR ;SET UP LPR TABLE POINTER 

JSR R5,SETLPR >GO SET UP LPR CONSTANT 

BR NEWL IN BR IF DONE ALL BAUD RATES AT THIS LINE 

MOV #177760, CHRCNT ;INIT CHAR COUNT 

MOV #-1,CLSEL > INIT CHR LNGTH SELECT CODE 

CLR QUI CKX sINIT QUICK TEST EXIT FLAG 

JSR R5,SETCL :GO SET UP THE CHAR LENGTH 

BR NEWLPR :BR IF DONE ALL FOUR LENGTHS 

CLR PARBIT : INIT PARITY SELECT BIT CODE 

JSR R5.SETPAR a SET PARITY SELECT 

BR NEWCL IF DONE ALL COMBOS 

JSR PC .DHSET1 >GOQ SET UP FOR TESTING THIS LINE 

BIS LINMSK ,BAR(R1) sACTIVATE THE SELECTED LINE 

JSR PC, CHPS1 :GO CLEAR PSW 

MOV #200, TIMEA : INIT TIMER A 

CLR TIMEB : INIT TIMER B 

CMP #3 ,RDONE sBOTH RCVR AND XMITTR DONE ? 

BEQ :BR IF Y 

JSR PC, TIMEIT sCALL THE TIMER 


’ SEQ 0060 


DHN=D MACY11 30A(1052) 
27=DEC=-78 15:28 


C2 
CZ2DHND P11 


002730 


000771 


052777 
116700 
006 


27~DEC-78 


004000 
017200 


030160 
030220 
012050 
003002 


016520 
001100 


004000 
001050 


016554 


176226 
176222 


176110 


016520 2$: 


15:51 PAGE 62 
1 


$$: 


J 4 


SUB=PROGRAM 1 = DATA RELIABILITY TESTS 


BR 


1$ 


#2$,$LPERR 
12 


#B1T11,@DHADR 
bm Ae 


RTOTAL (RO) ,$TMPO;SAVE XMITTED COUNT 
XTOTAL (RO) ,$TMP1;SAVE THE RCVD COUNT 
R5 , SUNUM 


LINMSK,DRPLIN 


ASTACK, SP 


NEWL IN 


#BIT11,(R1) 


PC,CKER 


NEWPAR 


sTIMER STEPS AROUND THIS BRANCH IF 
; TIMEOUT OCCURS 


sCLEAR OUT THE DH11 
:GET LINE NO. 
;FORM TABLE INDEX 


sPUT LINE NO. IN MESSAGE 


SET UP ERROR LOOP RETURN 

sLINE FAILED TO FINISH ON TIME - HUNG 
;SET DROP FLAG 

sRESET STACK POINTER 

:GO TRY ANOTHER LINE 


:CLEAR THE WORLD OUT IN THE DHT11 
:GO UPDATE THE DATA ERROR TABLES 
:GO TRY NEXT PARITY COMBINATION 


SEQ 0061 


C7DHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND P11 


27=DEC-78 


002000 


016370 


175760 
012034 
011744 
003106 


016412 
177422 


016302 
004000 
100000 
016776 
077760 
011742 
011652 
003200 
016320 
177330 
000012 
016206 


000012 
004000 


000012 
011650 
011560 


003272 


176004 


016412 


175712 


016320 


175620 


15: 


3] 
11 


K 5 
GE 63 
SUB=PROGRAM 1 = DATA RELIABILITY TESTS 


: TRANSMITTER INTERRUPT SERVICE ROUTINE ONE 


TINT1: 


23: 


5$: 


#B1T10,(R1) 
c$ 


(R1),R3 
PC,CHPS2 
weiTT (R*) 
n 7560, R3 
PC,SUER1 

; SUNUM 
¢ ey SLPERR 
(SP)+,(SP)+ 
LINMSK ,DRPLIN 
NEWL IN 
(R1).R3 
4$ 
PC, CHPS2 
#B1T11,(R1) 
WBITIS RS 
LINE ,R4 
#77760,R3 
R1.R2 
PC ,SUER1 
RS. SUNUM 
Samia 
(SP)+,(SP)+ 
L INMSK ,DRP! IN 
NEWLIN 
BAR(R1) 
6$ 


PC, CHPS2 
BAR(R1) .R3 
SeiTTt, (R1) 
a »R2 
ABAR ,R2 
PC, SUER1 
R5,SUNUM 


ad 


$78 SLPERR 


:NON EX MEM ERROR ?? 
R IF NOT 


SAVE THE SCR 


;G0 


:GO SET UP LINE NO. 


;SET UP THE ERROR LOOP RETURN 
:NON EX MEM ERROR 


;SET UP R 


LOCK OUT INTRS 

:CLEAR OUT THE DH11 

>SET UP THE S/B DATA 

CLEAR Ce es BITS 


:GO SFT UP ERROR INFO 


sPOP THE STACK 


;SET THE DROPPED FLAG FOR THIS LINE 
:GO TRY NEXT LINE 


IN MSG 


:GET THE SCR REG CONTENTS 


:BR IF XMIT DONE SET 

:GO LOCK OUT INTRS 

:CLEAR THE DH11 ~ FATAL ERROR 
:SET UP S/B DATA 


:CLEAR OUT SUPERFLUOUS BITS 
EGADR 


SET UPR 
;GO SET UP ERROR INFO 


:GO SET UP LINE NO. IN MSG 


GO LOCK OUT INTRS 
:GET THE WAS DATA 
;CLEAR THE DH11 
:SET UP S/B DATA 


SET UP ERROR LOOP RETURN 
> XMITTR te INTERRUPT 


;POP THE STA 


:SET THE DROPPED FLAG FOR THIS LINE 
:GO TRY NEXT LINE 


:DID BAR BIT CLEAR ?? 
BR IF YES 


;SET UP REGADR 
:GO SET UP ERROR INFO 


:GO SET UP LINE NO. IN MSG 


: SAVE THE ERROR LOOP RETURN 
;BUFFER ACTIVE REG FA 


AILED TO CLEAR 


SEQ 0062 





ft MACY11 30A(1052) 
C2DHND .P11 27=DEC-78 18 


022626 
056767 
000167 


005761 
001432 


016226 
177236 
000010 


016114 
000010 
004000 


000010 
011556 
011466 


003564 
016134 


177144 


000006 
616164 


032754 
016006 
000006 
01146¢ 
011372 


003460 


016040 


177050 


016070 
016432 
030220 


000001 


27-DEC-78 
:28 


016226 


175526 


016134 


175432 


016040 


016050 


15:31 
71 


6$: 


8$: 


10$: 


PAGE 64 
SUB=PROGRAM 1 = DATA RELIABILITY TESTS 


L 5 
SEQ 0063 
(SP) +, (SP) + POP GOES THE STACK 


LINMSK,DRPLIN ;SET THE DROPPED FLAG FOR THIS LINE 
NEWL IN >GO TRY NEXT LINE 


BCR(R1) :DID BYTE COUNT GO TO ZERO ?? 

8$ ;BR IF YES 

PC ,CHPS2 :GO LOCK OUT INTRS 

BCR(R1) ,R3 ;GET THE WAS DATA 

#B1T11,(R1) ;CLEAK THE DH11 

R4 :SET UP S/B DATA 

R1,R2 ;SET UP REGADR 

#BCR,R2 

PC,SUER1 :GO SET UP THE ERROR INFO 

R5,SUNUM :GO SET UP LINE NO. IN MSG 

#7$,. $LPERR :SET UP ERROR LOOP RETURN 

4 :BYTE COUNT REG FAILED TO GO TO 000000 
(SP) +, (SP) + :POP GOES THE STACK 

LINMSK,DRPLIN ;SET THE DROPPED FLAG FOR THIS LINE 
NEWL IN :GO TRY NEXT LINE 

CAR(R1) ,R3 :GET THE WAS DATA 

ail :>SET UP S/B DATA 

#TBUF ,R4 

R3,R4 sWAS CAR CORRECT ?? 


10$ 7BR IF YES 


PC,CHPS2 3GO LOCK OUT INTRS 
R1,R2 :SET UP REGADR 
#CAR,R2 
PC, SUER1 ;GO SET UP ERROR INFO 

5, SUNUM :GO SET UP LINE NO. IN MSG 
#9% ,.SLPERR ;SET UP THE ERROR RETURN 

5 * CURRENT ADDRESS REG NOT CORRECT 
(SP) +, (SP)+ >POP THE STACK 
LINMSK,DRPLIN 7SET THE DROPPED FLAG FOR THIS LINE 
NEWLIN ;GO TRY NEXT LINE 
R3,~(SP) 7 7PUSH R3 ON STACK 
R4,-(SP > PUSH R4 ON STACK 

CHRCNT ,R3 

;CHAR COUNT IN R3 

LINE ,R4 3GET LINE NO, 

R4 ‘ DOUBLE IT 

R3,XTOTAL (R4) “UPDATE TOTAL XMIT COUNT 

(SP) +,R4 : : POP STACK INTO R4 

(SP)+,R3 :;POP STACK INTO R3 

#B1TO,RDONE ;SET XMIT DONE FLAG 


T 
;RETURN TO WAIT LOOP 


M 5 


CZDHND MACY11 30A(1052) 27=DEC-78 15:31 PAGE 65 
CZDHND P11 27=DEC~78 15:28 11 SUB=PROGRAM 1 = DATA RELIABILITY TESTS SEQ 0064 

Cog sRECEIVER INTERRUPT SERVICE ROUTINE ONE 

2842 35 032711 040000 RINT1: BIT #B1T14,(R1) SILO OVERFLOW ERROR ?? 

3845 003540 001431 BEQ 2$ :BR IF NOT 

2845 003542 767 015666 JSR PC, CHPS2 :GO LOCK OUT INTRS 

2846 003546 011103 MOV ),R :GET THE WAS DATA 

2847 003550 012711 004000 MOV #B1T11,(R1) :NOW CLEAR THE DH11 

2848 003554 042703 177760 BIC #177760, :CLEAR JUNK 

2849 3560 116704 016360 MOVB LINE ,R 

2850 3564 004767 011332 JSR PC, SUER1 :GO SET UP ERROR INFO 

2851 003570 567 011242 JSR R5,S 7GO SET UP LINE NO. IN MSG 

2852 003574 022144 LINE 

2853 003576 023150 EM6+44 

2854 012767 003610 175302 MOV #1$,$LPERR SET UP ERROR LOOP RETURN 

2855 04 ERROR 6 :SILO OVERFLOW - BAD.BAD.BAD !!! 

2856 003610 022626 CMP (SP)+, (SP)+ :POP GOES THE STACK 

2857 003612 056767 015710 015710 BIS LINMSK,DRPLIN ;SET THE DROPPED FLAG FOR THIS LINE 

$858 003620 167 176720 JMP NEWL IN -GO TRY NEXT LINE 

2860 003624 105711 2$: TSTR (R1) CHAR AVAIL SET ?? 

$861 003626 1004 I 4$ :BR IF YES 

2863 003630 004767 015600 JSR PC, CHPS2 :GO LOCK OUT INTRS 

2864 003634 011103 MOV (Ri) R3 GET WAS DATA 

2865 003636 042703 177560 BIC #177560.R3 ZCLEAN IT UP 

2866 003642 012711 004000 MOV #B81T11,(R1) :NOW CLEAR DH11 

2867 003646 012704 000200 MOV #81107, :SET UP S/B DATA 

2868 003652 156704 016266 BISB LINE ,R4 

2869 003656 010102 MOV 1,R2 SET UP REGADR 

2870 767 011236 JSR PC, SUER1 :GO SET UP ERROR INFO 

2871 567 011146 JSR Ss :GO SET UP LINE NO. IN MSG 

2872 003670 022144 LINE 

2873 003672 023224 EM7+51 

2874 003674 012767 003704 175206 MOV #3$ ,SLPERR 7SET UP THE ERROR LOOP RETURN 

2875 003702 104007 ERROR 7 SRECEIVER FALSE INTERRUPT 

2876 3704 022626 3$: CMP (SP)+,(SP)+ POP GOES THE SP 

2877 003706 056767 015614 015614 BIS LINMSK,DRPLIN ;:SET THE DROPPED FLAG FOR THIS LINE 

3878 003714 167 176624 JMP NEWL INE :GO TRY NEXT LINE 

2880 003720 016167 000002 175254 4$: MOV NRC(R1),STMPO  ;SAVE THE DATA RECEIVED 

3681 3726 10043 BM! 5S :BR IF IT WAS VALID DATA 

2883 003730 4767 015500 JSR PC, CHPS2 :GO LOCK OUT INTRS 

2884 003 012711 000 MOV #81111, (R1) :NOW CLEAR THE DH11 

2885 003740 162767 030674 024522 SUB #RBUF .RBFPTR *WHICH CHAR WAS IT ?? 

2880 003746 016702 024516 MOV RBFPTR,R2 : SAVE 

2887 003752 767 011140 JSR PC, SUER2 : T UP ERROR 

2888 37 567 011054 JSR , SUNUM :GO SET UP LINE a IN MSG 

2889 003762 022144 LINE 

2890 3764 023274 EM10+45 

2891 003766 012767 003776 175114 MOV #5$.,$LPERR sSET UP E 

2892 003774 10401 ERROR 10 RECEIVED INVALID DATA 

2893 003776 022626 5$: CMP (SP)+,(SP)+ :POP GOES THE STAC 

2894 000 056767 015522 015522 BIS LINMSK,DRPLIN ;SET THE DROPPED FLAG FOR THIS LINE 

2895 004006 1 176532 JMP NEWL IN :GO TRY ANOTHER L! 


N 5 


CZDHND MACYI1, 30A(1052)__ 27-DEC~78° 15:31 PAGE 66 
CZDHND .P11 27-DEC-78 15:28 T1 SUB=PROGRAM 1 = DATA RELIABILITY TESTS SEQ 0065 
2896 
2897 004012 6$: 
2898 004012 010346 MOV R3,-(SP) + ¢PUSH R3 ON STACK 
2899 004014 010446 MOV —s-R4. = (SP) “PUSH R4 ON STACK 
2900 004016 016777 175160 024444 MOV $TMPO, _ : STORE CHAR IN THE BUFFER 
2901 004024 062767 000002 024436 ADD #2, RBFPTR UPDATE THE POINTER 
2902 004032 026767 015546 024430 CMP RBFEND, RBFPTR SEND OF BUFFER ?? 
2903 004040 001013 BNE 7$ "BR IF NOT 
004042 016703 015526 MOV CHRCNT ,R3 ;GET CHAR COUNT 
2905 004046 005403 NEG RB 
004050 116704 016070 MOVB —_LINE,R& ;GET THE LINE NO. 
72907 004054 006304 ASL sR “DOUBLE IT 
2908 004056 060364 030160 ADD —«R3,RTOTAL(R4) : UPDATE TOTAL RECEIVED COUNT 
2909 004062 052767 000002 015512 BIS §_ #BITI,RDONE =: SET _THE RCVR DONE BLAG 
2910 004070 7$: 
2911 004070 012604 MOV (SP)+,R4 :2POP STACK INTO R4 
2912 004072 012603 MOV —s- (SP) +. R3 :ZPOP STACK INTO R3 


2913 004074 000002 RTi sRETURN TO WAIT LOOP 


B 
CZDHN=D MACY11 30A(1052) 27=DEC-78 15:31 PAGE 67 
CZDHND .P11 78 15:28 T1 


27-DEC- SUB-PROGRAM 1 = DATA RELIABILITY TESTS SEQ 0066 
2914 | 7THIS ROUTINE IS CALLED TO CHECK THE RECEIVED DATA, REPORT ALL ERRORS, 
sore | sAND UPDATE THE STATISTICS TABLE ENTRIES FOR ALL LINES ACTIVE 
2917 004076 012767 030474 024364 CKER: MOV #RBUF,RBFPTR —: SET-UP POINTERS 
2918 004104 012767 032754 024360 MOV #TBUF . TBFPTR 
2919 004112 012767 030260 024340 MOV #DATERR,DEPTR  ;SET UP POINTERS TO STATISTICS TABLES 
2920 004120 012767 030320 024334 MOV #PARERR.PEPTR 
2921 004126 012767 030360 924330 MOV #OVRERR.ORPTR 
2922 004134 012767, 030420 024324 MOV #FRMERR FRPTR 
2923 004142 116705 015776 MOVB LINE. RS :GET LINE NO. AND DOUBLE IT 
2924 004146 ASL R5 
2925 004150 060567 024304 ADD RS ,DEPTR ;POINT TO CORRECT LINE ENTRY IN TABLE 
2926 004154 060567 024302 ADD R5_PEPTR 
2927 004160 060567 024300 ADD R5.ORPTR 
2928 004164 060567 024276 ADD R5"FRPTR 
2930 004170 117704 024276 1$: MOVB  @TBFPTR.R4 :GET THE S/B DATA 
2931 004174 000304 SWAB RG :PUT LINE NO. IN HIGH BYTE 
2932 004176 105004 CLRB RG 
2933 004200 156704 015740 -. BISB —LINE.R4 
2934 004204 000304 SWAB RG 
2935 004206 052704 100000 BIS #BITIS.RG ;AND FINALLY THE VALID DATA BIT 
2936 004212 017703 024252 MOV @RAFPTR.R3 “GET THE WAS DATA 
2937 004216 020304 CMP R3,R4 “WAS = S/B 22227 
2938 004220 001435 REQ 3$ *BR IF YES 
2940 004222 010367 174772 MOV R3,$TMP7 :SAVE THE WAS DATA 
2941 004226 010146 MOV R1,~(SP) ZSAVE THE DEVADR 
2942 004230 016701 024234 MOV RBFPTR.R1 [GET THE SBADR 
2943 004234 016702 024222 MOV TBFPTR_R2 =GET THE WASADR 
2944 004240 010200 MOV R2,R0 :GET XMIT BUFFER ADDR 
2945 004242 162700 032754 SUB #TBUF .RO [GENERATE CHAR # 
2946 004246 004767 JSR PC ,UPDER :GO CHECK AND UPDATE THE DATA ERROR TABLE 
2947 004252 004767 010640 JSR PC; SUERZ2 :GO SET UP ERROR INFO 
2948 004256 004567 010554 JSR R5. SUNUM :GO PUT LINE NO. IN MSG 
2949 004262 022144 
2950 004264 023427 EM11+23 
2951 004266 012767 004276 174614 MOV #2$.S$LPERR :SET UP ERROR RETURN 
2952 004274 104011 ERROR 11 :DATA COMPARE ERROR OR PARITY. FRAMING 
2953 :0R OVERRUN 
2954 004276 012601 2$: MOV (SP)+.R1 *RESTORE THE DEVADR 
2955 004300 032767 070000 174712 ° BIT #70000,$1MP7 = ANY PARITY OVERRUN, OR FRAMING ERROR 
2956 004306 007402 BEQ 3$ >BR IF NOT 
2958 004310 004767 000036 JSR PC, SOFT :GO TAKE CARE OF SOFT ERROR REPORT 
2960 004314 005267 024152 3$: iNC TBFPTR [UPDATE POINTERS 
2961 004320 062767 000002 024142 ADD #2,.RBFPTR 
2962 004326 026767 015252 024134 CMP RBFEND,RBFPTR ;COMPARED ALL CHARS ?? 
2963 004334 001315 BNE 1$ “BR IF NOT 
2965 004336 000207 RTS PC :RETURN TO WAIT LOOP 
2967 004340 120304 UPDER: CMPB  R3.R4 :DATA BYTES CORRECT ?? 
2968 004342 001402 BEQ 1$ ‘BR IF YES 


2969 004344 005277 024110 INC — @DEPTR COUNT THE DATA ERROR 


CZDHN=D MACY11 
C72DHND .P11 


SUB=PROGRAM 1 = DATA RELIABILITY TESTS 


30A(1052) 27=DEC~-78 15:31 PAGE 68 
27=DEC=78 15:28 T1 

000207 1$: RTS 
006367 174642 SOFT: ASL 
100002 BPL 
005277 024100 INC 

7 174630 1$: ASL 
1 2 BPL 
005277 024070 INC 
006367 174616 2$: ASL 
10000 BPL 
905277 024052 INC 
000207 3$: RTS 


PC 
$TMP7 
1$ 


@ORPTR 
$TMP7 


2$ 
aFRPTR 
$TMP7 


3$ 
@PEPTR 
PC 


Cc «6 


;RETURN 


>COUNT IT 
; TEST FOR PARITY ERRORS 
;BR IF NONE 


“COUNT IT 


ZRETURN 


: TEST FOR OVERRUN ERRORS 
;BR IF NONE 


;COUNT IT 
;TEST FOR FRAMING ERRORS 
;BR IF NONE 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND .P11 


012767 
005001 
004567 


022142 


104401 
025617 
036767 
001411 


010167 
004567 


27-DEC-78 


000001 
010410 


015060 


174542 
010354 


015022 
174466 
030160 


014750 


075106 


015060 


015016 


174462 


174322 


15:31 
T1 


1$: 


2$: 


3$: 
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SUB=PROGRAM 1 - DATA RELIABILITY TESTS 
sTHIS ROUTINE IS CALLED TO PRINT OUT THE TEST STATISTICS 


PRSTAT: MOV #1,LINMSK ;SET UP BIT TEST MARKER 
CLR R1 *R1 CONTAINS THE LINE NO. 
JSR R5,SUNUM :GO SET UP DH11 # IN STAT MESSAGE 
DHNUM 
ho ll 
YPE 3;GO TYPE THE STATISTICS HEADER 
STMSG' 
YPE ; TYPE HEADER 
STMEGS 
BIT LINMSK,DRPLIN ;DID THIS LINE GET DROPPED ? 
BEQ 2$ ;BR IF NOT 
MOV R1,$TMP7 ;SAVE THE LINE NO. 
JSR R5,SUNUM ;GO PUT LINE NO. IN MESSAGE 
STMP7 
STMSG3+10 
TYPE 
STMSG3 
BR 3;GO TEST NEXT LINE 
ety a ;SET UP R2 WITH TABLE INDEX 
BIT LINMSK,L INSEL ZWAS THIS LINE SELECTED ?? 
BEQ 3$ BR IF NOT 
MOV R1,$TMPO :SET UP THE ERROR INFORMATION FROM 
; THE TABLES INTO THE MESSAGE POINTERS 
MOV RTOTAL (R2),$TMP1_ 
MOV XTOTAL(R2) , STMP2 
MOV DATERR(R2) , STMP3 
MOV PARERR(R2) , STMP4 
MOV OVRERR(R2), “STMP5 
MOV FRMERR(R2) , STMP6 
1 A t -$LPERR ZRETURN TO 3$ AFTER PRINTING LINE 
INC R1 STEP TO NEXT LINE 
ASL L INMSK SHIFT THE MARKER 
BEQ ENDA BR IF ALL LINES REPORTED 
BR 1$ :GO BACK AND DO THIS LINE 


SEQ 0068 


gE 6 
CZDHN=D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 70 
CZDHND P11 27=DEC-78 15:28 1 SUB=PROGRAM 1 = DATA RELIABILITY TESTS SEQ 0069 
3027 004602 0004 ENDA: SCOPE , 
3028 004604 105067 174272 CLRB $TSTNM sRE~INIT TEST NUMBER FOR NEXT PASS 
3029 004610 012767 000240 004136 MOV #240, $E0P s;NOP_THE SCOPE IN ENDPASS ROUTINE 
3030 004616 5267 015320 INC DHNUM GENERATE NEW DH11 NUMBER 
3031 004622 062767 000002 015472 ADD #2,ADPTR ;UPDATE THE TABLE POINTERS 
53032 004630 062767 000002 015466 ADD #2,VCPTR 
3033 004636 062767 000002 915462 ADD #2,BRPTR 
3034 004644 006367 014650 ASL SELMSK SHIFT MARKER TO TEST NEXT DHi1 
3035 004650 001002 BNE 1$ :BR IF NOT TESTED ALL DH11°S 
3036 004652 000167 004076 JMP $EOP >JUMP TO EOP IF WE HAVE 
3037 004656 036767 014636 014636 1$: BIT SELMSK ,DHSEL :1S THIS DH11 SELECTED ? 
3038 004664 001746 BEQ ENDA :BR IF NOT 
3039 004666 000167 175520 JMP RSTRTA ;GO TEST THIS DH11 


CZDHN~D ! 30A(1052) 
CZDHND P11 27=DEC=-78 15: 


012767 


012767 
012767 
104401 
026231 


000167 


177777 


174700 


160020 
000350 


011256 


015172 
177760 
015160 


000001 


014522 
013212 
015322 


021174 


000015 
021152 


021140 
000116 
000131 
000574 


27-DEC-78 
28 


~ 


015452 


572 
566 


OO 
oe oe 


015164 


014532 


021130 
021120 


13237 
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SUB=PROGRAM 2 = SINGLE LINE ECHO/CABLE TESTS 
-SBTTL SUB-PROGRAM 2 = SINGLE LINE ECHO/CABLE TESTS 


ECHOQ1: 


ECHO2: 


1$: 


23: 


3$: 


4$: 


5$: 


JMP 


TREKKA KKKKKhhhh 


* SINGLE LINE ECHO TESTS - 
REECE KKKEKEEKKEKKKKKKKKhKhhhhh 
#-1,RETFLG ;SET RETURN FLAG - COME BACK 
DPFLG :CLEAR PATTERNS TEST FLAG 
VCFLG :INIT VECTOR SETUP FLAG 
BEGINA "ECHO1'' AFTER SETUP 
#160020,DHADR SET UP DH11 DEFAULT ADDRESS 
#330,DHVCT :SET UP DH11 DEFAULT VECTOR 
;PRINT I.D. MESSAGE 
;'SINGLE LINE ECHO TEST - CONNECT 
; TERMINAL TO TEST LINE’’ 
INPAR :GO SET UP DEVICE AND VECTOR 


;ADDRESSES - COME BACK TO ‘ECHO2"’ 


+ G0 ASK FOR TTY INPUT 
> ‘LINE # (00 - 17 OCTAL)’’ 


CSP) +, LINE GET NO. TY 

#177760,LINE :CLEAR JUNK 

LINE .R2 :GET LINE NO. 

R2 >CORRECT FOR SHIFT ROUTINE 
#1,L INMSK sINIT LINE SELECT BIT MASK 
R2 >COUNT ONE LINE CHECKED 

2$ :BR IF DONE 

L INMSK >SHIFT SELECT BIT 

1$ :GO COUNT IT 

PC,LPRIN ;GO ASK FOR AND SET UP LINE PARAMETERS 
DPFLG :DATA PATTERNS TEST ? 

3$ :BR IF 


NOT 
PC sRETURN TO PATTERNS TEST 


EC2 ;CLEAR ECHO BUFFER 
;"'SEND MODE - Y OR N 2"° 
[GET CHAR TYPED 

(SP>+,RO :GET CHAR TYPED 

#15 ,R0 WAS IT A <CR> ? 

5$ :BR IF YES 

RO.EC2 [ECHO WHAT WAS TYPED 

4$ :GO WAIT FOR TERMINATOR 

EC2 :<CR> ONLY ?? 

ECHO3 :BR IF YES 

#116,EC2 [WAS IT AN ‘NT 22 

ECHOS BR IF YES, 

#131,EC2 “WAS IT A ‘'Y"' 2? 

3 :BR IF NOT ASK AGAIN 

SENDP1 :GO TO SEND ROUTINE 


SEQ 0070 


CZDHN=D MACY11 30A(1052) 
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3106 
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LA) weed ee ed ed td ed wd od od od oO 
OOWDNANRWV-OSRY 


012767 
005067 
005767 
001015 
004767 
000772 
010167 


27=DEC-78 


014320 


014762 
005314 


014162 


tener 


0711624 


173674 


005310 
177424 


G 6 
2 ~ SINGLE LINE ECHO/CABLE TESTS 


:GO LOCK OUT INTRS 

INIT CONTROL=C EXIT FLAG 
sCLEAR TEST EXIT FLAGS 

;INIT FOR BR LEVEL 5 

;SET UP DEVICE ADDRESS 

:CLEAR THE SELECTED DH11 

;GET THE FIRST VECTOR ADDRESS 
;SET UP THE VECTORS 


15:31 PAGE 72 
SUB-PROGRAM 
ECHO3: JSR PC,CHPS2 
CLR CEX!IT 
CLR EXFLAG 
015006 MOV #120240,DHRLVL 
MOV DHADR ,R1 
MOV #BIT11,(R1) 
MOV DHVCT,RO 
MOV ARINT2, (RO) + 
MOVB DHRLVL, (RO) 
TST (RO) + 
MOV ATINT2, (RO)+ 
MOVB DHTLVL, (RO) 
MOV LINE, (R1) 
MOV #TBUF ,R2 
BIS #BITO6G, (R1) 
000004 MOV CURLPR,LPR(R1) 
JSR RS, SUNUM 
LINE 
ECMSG3+20 
YPE 
ECMSG3 
TYPE 
ECMSG4 
JSR PC,CHPS1 
015066 DHWAIT: MOV #200, TIMEA 
CLR TIMES 
1$: TST CEXIT 
BNE 2$ 
JSR PC ,TIMEIT 
BR 1$ 
MOV R1,$REG1 
MOV (Ri), $TMPO 
BIS #81711, (R1) 
173602 MOV ag SLPERR 
ERROR 16 
2$: JMP ECHO2 


sSET THE LINE SELECT BITS 
; INIT BUFFER POINTER 
sENABLE RCVR INTRS 

sSET UP LINE PARAMETERS 
sPUT LINE NO. 


IN MESSAGE 


GIVE Age Sh) ow 
:''GO TYPE CHARS ON TEST TERMINAL’’ 
‘PRINT DIRECTIONS 


:‘‘CCONTROL~C TO EXIT] CCONTROL-E TO ECHO BUFFERI’’ 


>GO CLEAR PSW 


7 INIT TIMER ‘‘A’’ 
ZINIT TIMER ‘*B*' 
;CONTROL-C EXIT ?? 


;BR IF YES 
>CALL TIMER 


“BR IF NO TIMEOUT 


:SAVE DEVADR 


:SAVE CONTENT OF SCR 
:CLEAR OUT THE DH11 


>SET ERROR LOOP RETURN 
:REPORT RCVR WAIT TIMEQUT 
760 RESTART 


SEQ 0071 


CZDHN=D MACY11 30A(1052) 
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012767 
000411 


012702 
005067 
012767 
052711 


000002 
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120090 
000001 
000603 


000002 
034104 


000003 
032754 
000010 
0714104 
177777 
032754 


014716 
000200 
000100 


015036 
015026 
015016 


015000 


000006 
014720 
000012 


014702 


014056 


15: 
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SUB=PROGRAM 2 = SINGLE LINE ECHO/CABLE TESTS 
: TRANSMITTER INTERRUPT SERVICE ROUTINE TwO 


TINT2: BIC 
CMP 


1$: MOV 


2$: MOV 


3$: MOV 
318: MOV 


4$:. RT] 


#Bi7T15+B1T13,(R1) 
A alate 


$ 
#35, EXFLAG 
3$ 
a5 -EXFLAG 
Re ,ATBUF +600. 
31$ 


#3, EXFLAG 
#TBUF ,R2 
RO 


R2,BCR(R1) 
#TBUF ,CAR(R1) 
#200, TIMEA 
#B1T13,(R1) 

> eal 


4-1] ,CEXIT 
4$ 


#TBUF ,R2 


EXFLAG 


#200, TIMEA 
#BIT06, (R1) 


;DISABIE XMIT INTRS 
sCONTROL=C FLAG ? 

:BR IF YES 

;WAS BUFFER JUST DUMPED ? 
“BR IF YES 

:CONTROLE FLAG ? 

:BR IF YES 


“BUFFER FULL ? 

;BR_IF NOT 

> SET DUMP FLAG 

7SE7 UP BYTE COUNT REG 


SET “ CURRENT ADDR REG 
7 INIT TIMER 

> ENABLE XMITTR INTR 
;ACTIVATE LINE 


-GO EXIT 


>SET CONTROL-C EXIT 


EXIT 


7RESET ECHO BUFFER FLOPINTER 
Z INIT EXIT FLAG 

; INIT TIMER AGAIN 

SENABLE RCVR INTR 


sRETURN TO MAINLINE 


SEQ 0072 
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042711 


901015 
112767 


022767 
007021 


112767 


000100 
000002 
177600 
000003 


000136 
000 


012066 


000 
013626 
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173430 


173356 


014524 
000010 
000006 
014442 
000012 


13% 
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SUB=PROGRAM 2 = SINGLE LINE ECHO/CABLE TESTS 


sRECEIVER INTERRUPT SERVICE ROUTINE TwO 


SEQ 0073 


RINT2: BIC #BIT06, (R1) :DISABLE RCVR INTR 
MOV NRC(R1),$TMPO ;SAVE THE DATA TYPED 
BIC #177600, $TMPO “CLEAR HIGH BYTE 
CMP #3, $TMPO :CONTROL=C TYPED 2? 
BNE 1$ “BR IF NOT 
MOVB  #136.ECBUF :SET UP TO ECHO CONTROL-C 
MOVB #103,ECBUF +1 
MOV #~2,BCR(R1) :SET UP BCR REG 
MOV #1, EXFLAG -SET CONTROL-C FLAG 
BR 4$ :GO OUT PUT CHAR TYPED 
1$: CMP #5, $TMPO zWAS IT A CONTROL-E ?? 
BNE 2$ 7BR IF NOT 
MOVB  #136,ECBUF 7SET UP TO ECHO CONTROL-E 
MO #105, ECBUF +1 
MOVB #136, (R2)+ zPUT IN THE ECHO BUFFER 
MOVB #105, (R2)+ 
MOV #-2,.BCR(R1) :SET UP BYTE COUNT REG 
MOV #2, EXFLAG :SET CONTROL-E FLAG 
BR 4$ :GO EXIT 
2$: CMP #12,$TMPO zWAS IT A LINE FEED ?? 
BNE 3$ :BR IF NOT 
JSR PC .LDFILL :GO LOAD FILLERS 
BR 4$ =GO EXIT 
3$: MOVB = $TMPO,. ECBUF SET UP CHAR TO ECHO 
MOVB  $TMPO.(R2)+ 
MOV #-1,.BCR(R1) OUTPUT ONE CHAR ONLY 
4$: MOV #ECBUF .CAR(R1) 7SET UP CURRENT ADDR REG 
MOV #200, TIMEA : INIT TIMER AGAIN 
BIS #B1T13, (R17) :ENABLE XMITTR INTR 
MOV LINMSK ,BAR(R1) sACTIVATE THE LINE 
RTI :RETURN TO MAINLINE 


J 6 
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27=DEC-78 15:28 SUB-PROGRAM 2 = SINGLE LINE ECHO/CABLE TESTS SEQ 0074 
3209 005704 104401 SENDP?: TYPE ;ASK FOR DIRECTIONS 
3210 005706 027402 SNMSG2 "TYPE SEND BUFFER ~- TERMINATE WITH CONTROL-C’’ 
3211 005710 012705 032754 MOV #TBUF .RS5 “SET UP BUFFER POINTER 
3212 005714 104410 1$: RDCHR “GET CHAR 
3213 005716 012600 MOV (SP)+,RO 
3214 005720 110067 020276 MOVB _—RO. EC? :ECHO CHAR 
3215 005724 104401 TYPE 
3216 005726 026222 EC2 
3217 005730 022700 000003 CMP #3,RO :WAS IT A CONTROL=C 7? 
3218 005734 001421 BEQ 4$ “BR IF YES 
3220 005736 026727 013632 000400 CMP CHRCNT #256. :BUFFER FULL ?? 
3221 005744 003015 BGT 4$ “BR IF YES 
3222 005746 622700 000012 CMP #12.RO *WAS IT A LINE FEED ? 
3223 005752 001010 BNE 3$ =BR IF NOT 
3225 005754 110025 MOVB _—RO, (R5) + :LOAD CHAR TYPED 
3226 005756 116704 014450 -MOVB ~—- FILLB.R4 :GET FILLER COUNT 
3227 005762 116725 014442 2$: MOVB = FILLA.(R5)+ “LOAD A FILLER 
3228 005766 005304 DEC R4 “COUNT IT 
3229 005770 001374 BNE 2$ -BR IF NOT DONE 
3230 005772 000750 BR 1$ :GET SOME MORE INPUT 
3232 005774 110025 3$: MOVB RO, (R5)+ :LOAD BUFFER 
3233 005776 000746 BR 1$ >GO GET SOME MORE 
3235 006000 004767 011636 4$: JSR PC, SENDP2 :GO XMIT THE BUFFER 
3236 105067 020212 5$: CLRB ~=s- EC? [CLEAR ECHO BUFFER 
3237 006010 104401 TYPE 
3238 006012 027462 SNMSG3 "CHANGE PARAMETERS- Y OR N°’ 
3239 006014 104410 6$: RDCHR 
3240 006016 012600 MOV (SP)+,R0 :GET CHAR 
3241 006020 122700 000015 CMPB ss #'15,,RO “WAS IT A <CR> HE TYPED 2? 
3242 006024 001405 BEQ 7$ “BR IF IT WAS 
3243 006026 110067 020170 MOVB RO. EC2 *ECHO IT 
3244 006032 104401 TYPE 
3245 006034 026222 EC2 
3246 006036 000766 BR 6$ :GO WAIT FOR TERMINATOR 
3248 006040 105767 020156 7$: $78: €t2 :<CR> ONLY ?? 
3249 006044- 001717 BEQ SENDP1 “BR IF YES 
3250 006046 122767 000116 020146 (MPR ss #116. EC2 =DID HE SAY NO ?? 
3251 096054 001713 BEO SENDP1 “BR IF HE DID 
3252 006056 122767 000131 020136 (MPR #131. (2 :DID HE SAY YES ?? 
3253 006064 001347 BNE S$ -GO ASK ALL OVER AGAIN 


3254 006066 000167 176646 JMP ECHO2 :GO ASK FOR NEW PARAMETERS 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND .P11 


012767 


27-DEC-78 


177777 
014246 
013576 
173500 
160020 
000330 
010056 


176574 
013176 


001001 


000400 
013364 
I 


007630 
013675 


014240 


013372 
013366 


013722 


15:31 


PAGE 76 


K 6 


SUB=PROGRAM THREE - DATA PATTERNS TESTS 
-SBTTL SUB=PROGRAM THREE - DATA PATTERNS TESTS 


WEKKKKEKKKKKKEKKKKKKKE KKK 


EXPAT: 


EXPAT1: 


EXPAT2: 


1$: 


2$: 
3$: 


* DATA PATTERNS TESTS ‘ 
KEK KKKKKKKKKKKKKKKKKKhhhkhe 
#-1,DPFLG :SET PATTERNS TEST FLAG 
RETFLG “CLR ECHO TESTS FLAG 
VCFLG CLEAR VECTOR SETUP FLAG 
BEGINA :GO SET UP RETURN TO “EXPAT1’’ 
#160020,DHADR  ;SET UP DEFAULT DH11 ADDR 
#330,DHVCT “AND VECTOR TOO 
‘DATA PATTERNS TESTS - CONNECT TEST JUMPAR’’ 
INPAR >GO GET SOME PARAMETERS RETURN TO EXPAT2 
PC,ECHO2 :GO GET REST OF THE PARAMETERS 
PC; SUCLMK =GO SET UP CHAR LENGTH MASK 
:'BUFFER SIZE ? (1-512) 
:GET THE SIZE TYPED 
(SP)+,RO 
2$ :BR IF DEFAULT TO 256. <CR> 
RO.#513. :T00 BIG ? 
3$ “BR IF NOT 
"INVALID SIZE - TRY AGAIN’’ 
1$ >GO ASK AGAIN 
#256. .RO :DEFAULT TO 256. BYTE BUFFER 
R [MAKE iT NEG BYTE COUNT 
RO, CHRCNT “SAVE IT FOR TEST 
#120240 DHRLVL ;SET BR LEVELS TO BRS 
DHVCT RO =SET UP VECTORS 


ORINTS (RO) + 
DHRL VL, (RO) 
(RO) + 
ATINTS, (RO)+ 
DHTLVL. (RO) 


SEQ 0075 


L 6 
27~DEC=78 15:31 PAGE 77 
15:28 


‘io? MACY11 30A(1052) 
CZDHND .P11 SUB=PROGRAM THREE - DATA PATTERNS TESTS 


27-DEC-78 SEQ 0076 


3297 006244 104407 EXPATS: CKSWR 3; TEST FOR CHANGE IN SOF T=SwR 
3298 006246 005067 014074 CLR PATFLG :CLEAR <CR> SEQUENCE FLAG 
3299 006252 105067 917744 CLRB = EC2 :CLEAR ECHO BUFFER 

3500 006256 016701 013232 MOV DHADR ,R1 ; INIT R1 TO POINT TO SCR REG 
3301 006262 104401 TYPE 

3302 006264 027666 DPMSG4 :' PATTERN TYPE ? (A,U.D.R.S. OR B)*’ 
3303 006266 104410 7$: RDCHR 

3304 006270 012600 MOV (SP)+,RO :GET WHAT HE TYPED 

3305 006272 120027 000015 C RO,415 “WAS IT A <CR> ?? 

3306 006276 001407 BEQ 9$ “BR IF YES 

3307 006 10067 014040 MOV RO,DATPAT 

3308 006 10067 017712 MOVB _—RO.EC2 sECHO IT 

3309 006310 104401 TYPE 

3310 006312 026222 EC2 

3311 006314 764 BR 7$ :GO WAIT FOR TERMINATOR 
3313 006316 104401 9$: TYPE 

3314 006320 027740 DPMSG5 mu gh ,'0 LOCK ON TEST PATTERN’’ 
3315 006322 105767 017674 TSTB ~—s- EC2 =<CR> ONLY 

3316 006326 001005 BNE 8$ “BR IF NOT 

3317 006330 012767 000015 014010 MOV #15.PATFLG 

ede 006336 000767 000506 JMP DPATCR :;GO SEQUENCE A,U.D.R PATTERNS 
3320 006342 022767 000101 013774 8$: CMP #101, DATPAT ZALTERNATING 1/0 ? 

3321 006350 001002 BNE 1$ IF NOT 

3322 006352. 000167 (00102 JMP DPATA :GO DO IT 

3324 006356 022767 000125 013760 1$: CMP #125 DATPAT ;UP COUNT PATTERN ? 

3325 006364 001002 BNE 2$ :BR IF NOT 

3326 006366 000167 000164 JMP DPATU :GO DO IT 

3328 006372 022767 000104 013744 28: CMP #104 ,DATPAT :DOWN COUNT PATTERN ? 

3329 006400 001002 BNE 3$ :BR IF NOT 

3330 006402 000167 000246 JMP DPATD :G0 DO IT 

3332 006406 022767 000122 013730 3$: CMP #122 ,.DATPAT :RANDOM PATTERN ? 

3333 006414 001002 BNE 4$ :BR IF NOT 

3354 006416 000167 000330 JMP DPATR :G0 DO IT 

3336 006422 022767 000123 013714 4$: CMP #123.DATPAT :SINGLE CHAR PATTERN ? 
3337 006430 001002 BNE 5$ :BR IF NOT 

3338 006432 000167 000474 JMP DPATS :GO DO IT 

3340 006436 022767 000102 013700 S$: CMP #102, DATPAT : TYPE IN BUFFER ? 

3341 006444 001002 BNE 6$ :BR IF NOT 

3342 006446 000167 000620 JMP DPATR :GO DO IT 

3344 006452 104401 6$: TYPE 

3345 006454 030002 DPMSG6 :""INVALID PATTERN = TRY AGAIN" 
3346 006456 000672 BR EXPAT3 :GO ASK AGAIN 


CZDHN=D MACY11 30A(1052) 
27-DEC-78 


CZDHND.P11 


006460 
64 


005067 
004767 
004767 
005267 
026767 
001366 


016767 
7 


016767 
005067 
012767 
104021 
022767 
001001 
000207 
105777 
100745 
000167 


005067 
004767 


27-DEC-78 


15:28 
013656 


013650 


013626 


172370 
177466 
013560 
0123570 
000720 
013544 
013552 


013550 
013522 
006650 


000015 


172272 
177370 


013462 
012322 
000622 
013446 
013454 


013432 
013424 
006726 


000015 


172174 
177272 


013364 
012256 


013634 


172444 
172360 
013606 


013536 


172346 
172262 
013510 


013440 


172250 
172164 
013412 


15 


7:31 PAGE 78 


M 6 


SUB=PROGRAM THREE = DATA PATTERNS TESTS 


;INIT ITERATION COUNTER 
:GO SET UP THE PATTERN 


DPATA: 
1$: 


2$: 


3$: 


DPATU: 
1$: 


2$: 


3$: 


DPATD: 
1$: 


23: 


3$: 


DPATR: 
1$: 


DATCNT 

PC ,SUPATA 
C,DHST2 
ATCNT 

PATLIM,DATCNT 
1$ 

DATCNT , $REGO 

DATCNT 

sgn t PEAR 

#15,PATFLG 
3$ 

PC 

aSWR 

1$ 

EXPAT 3 
DATCNT 

PC ,SUPATU 
at ere 
DATCNT 
PATLIM,DATCNT 
1$ 
DATCNT , $REGO 
DATCNT 

car eeerenn 
#1S PATFLG 
33 


PC 
aSwR 


1$ 

EXPAT 3 
DATCNT 

PC ,SUPATD 

PC ,DHST2 
DATCNT 
PATLIM,DATCNT 
1$ 

DATCNT , SREGO 
DATCNT 

ae SLPERR 
#15, PATFLG 
3$ 

PC 

@SWR 

1$ 

EXPAT 3 


DATCNT 
PC ,SUPATR 


tS Ee tyre IT ON SELECTED DH11 


UNT 
sDONE IT ENOUGH TIMES 
:BR IF NOT DO IT AGAIN 


;SAVE ITERATION COUNT 


: INIT COUNTER 
;COME BACK T 


TO 2$ 
;REPORT DONE SPECIFIED NO. OF ITERATIONS 


*CY oie ee PATTERNS ? 


IF 
“RETURN TO EXECUTE NEXT Pi lait 


sLOCK ON THIS PATTERN ? 
:BR IF YES 


:GO ASK FOR NEW PATTERNS 


: INIT ITERATION COUNTER 
:GO SET UP THE PATTERN 


oD ie IT ON SELECTED DH11 


>DONE IT ENOUGH 
:BR IF NOT DO IT AGAIN 


7SAVE ITERATION COUNT 
COUNTER 


7 INIT 


:COME BACK TO 2$ 
;REPORT DONE SPECIFIED NO. OF ITERATIONS 


TIMES ? 


:CYCLING FOUR PATTERNS ? 


:BR IF NOT 
sRETURN TO gt gh pene 


LOCK ON THIS P. 
3BR IF YE 


UP 


TTERN 


Ss 
:GO ASK FOR NEW PATTERNS 
INIT ITERATION COUNTER 
SET THE PATTERN 
260 EXECUTE IT ON SELECTED DH11 
;COUNT IT 


:DONE IT ENOUGH TIMES 
BR IF NOT DO IT AGAIN 


SAVE ITERATION COUNT 
COUNTER 


INIT C 
: COME BACK 


TO 2$ 
T DONE SPECIFIED NO. OF ITERATIONS 


R 
:CYCLING FOUR PATTERNS ? 
F NOT 


BR I 
sRETURN TO ig Le ae PATTERN 


:LOCK ON THIS P 
YES 


;BR IF 
>GO ASK FOR NEW PATTERNS 
: INIT ITERATION COUNTER 


:GO SET UP THE PATTERN 


SEQ 0077 


CZDHN=D MACY11 30A(1052) 
27-DEC-78 15:28 


CZDHND.P11 


LELERERER ERE RY 
SSBVSARANASSELESR | 


3451 


KELEEERS 
OOVRARANG 


012767 


105767 
001003 
012767 
004767 


005267 
026767 
001 366 


016767 
005067 
012767 
104023 
105777 


27-DEC-78 15: 


000524 
013350 
0133556 


013334 
013526 
007024 


000015 


172076 
177174 


000101 
177376 
000125 


177462 
000104 
177546 


000122 
177632 
172014 


177112 


017064 
013200 


000015 


013164 
017032 


017020 


013100 
013072 
007260 


171654 


013342 


172152 
172066 
013514 


013266 
013254 
015242 
014250 


013136 


013106 


171716 
171632 


31 PAGE 79 
SUB=PROGRAM THREE = DATA PATTERNS TESTS 


2$: 


3$: 


DPATCR: 


DPATS: 


3$: 


4$: 


2$: 


N 6 


PC,DHST2 
DATCNT 
PATLIM,DATCNT 
1$ 
DATCNT , $REGO 
DATCNT 
#2$,$LPERR 
#15,PATFLG 
3$ 

PC 

@SWR 

1$ 

EXPATS 

#101 ,DATPAT 
PC ,DPATA 


PC DPATD 
Wide, DATPAT 
PC, DPATR 
@SWR 
DPATCR 
EXPAT3 


EC2 
DATCNT 


(SP)+,RO 
#15,R0 


4$ 
RO, SINGLE 
RO,EC2 
3$ 

EC2 

1$ 

#15, SINGLE 
PC, SUPATS 

PC ,DHST2 
DATCNT 
PATLIM,DATCNT 
1$ 
DATCNT , $REGO 
DATCNT 
#2$,$LPERR 
23 

aSWR 


‘ep Ene tyre IT ON SELECTED DH11 
; i 
:DONE IT ENOUGH TIMES 


:BR IF NOT DO IT AGAIN 


sSAVE ITERATION COUNT 

; INIT COUNTER 

:COME BACK TO 2$ 

;REPORT DONE SPECIFIED NO. OF ITERATIONS 
CYCLING F FOUR PATTERNS ? 


NOT 
sRETURN TO EXECUTE ag eile 
;LOCK ON THIS PATTERN 


:BR IF YES 
:GO ASK FOR NEW PATTERNS 


sFLAG 1/0 PATTERN 
Ae FOR 1/0 PATTERN 


OR UP COUNT PATTERN 
:FLAG DOWN COUNT PATTERN 
ALL FOR DOWN COUNT PATTERN 


st 

;FLAG RANDOM DATA PATTERN 
:CALL FO RANDOM PATTERN 
;LOCK ON ALL FOUR PATTERNS 
:BR IF YES 

:GO ASK FOR NEW PATTERN 


:CLEAR THE ECHO BUFFER 


: INIT ITERATION COUNTER 
‘TYPE SINGLE TEST CHAR** 
7GET CHAR 

;GET WHAT HE TYPED 


“WAS IT A <CR> ?? 

7BR IF YES 

7SAVE IT FOR LOADING SUFFER 
sECHO IT ON TTY 


:GO WAIT FOR TERMINATOR 
WAS SINGLE Fagg A oo ?? 


. BUF 
:G0 EXECUTE IT ON DH11 
T ONE TIME 
® DONE REQUIRED ITERATIONS ? 
;BR IF NOT 
: SAVE ITERATION COUNT 


BA ALWAYS 
sREPORT DONE SINGLE See PATTERN 
:LOCK ON THIS PATTERN ? 


SEQ 0078 


CZDHN=D MACY11 30A(1052) 27=DE(-78 
CZDHMND P11 27=DEC=78 15:28 


3460 007264 100752 
erg 007266 000167 176752 


——o— ee  ~ - meme eee 


19:3 
S 


8 7 


1 PAGE 80 | 
UB=PROGRAM THREE = DATA PATTERNS TESTS 
BM! 1$ | ;BR IF YES 
JMP EXPAT 3 :GO ASK FOR NEW PATTERN 


el eh aeneediatete een ee ee ee Nene . 


SEG 0079 






ee 


CZDHN=D_MACY11_30A(1052) _27=DEC-78 15:31 PAGE 81 
CZDHND.P11 -27=DEC=78 15:28 SUB-PROGRAM THREE - DATA PATTERNS TESTS SEQ 0080 
3463 007272 005067 013044 DPATB: CLR DATCNT ; INIT ITERATION COUNTER 
3464 007276 104401 TYPE 
3465 7300 030075 DPMSGA "TYPE IN BUFFER = TERMINATE WITH CONTROL-C’’ 
3466 007302 012705 032754 MOV ATBUF .R5 :POINT TO XMIT BUFFER 
3467 007306 104410 1$: - RDCHR :GET A CHAR 
3468 007310 012667 013034 MOV (SP)+*,SINGLE SAVE IT 
3469 007314 116767 013030 016700 MOVB SINGLE ,EC2 ECHO IT 
3470 007322 104401 TYPE 
3471 007324 026222 EC2 
3473 007326 022767 000003 013014 (MP —s- #3, SINGLE ;WAS IT A CONTROL-C ?? 
3474 007334 001423 BEQs38 iBR IF YES 
2476 007336 020527 033755 CMP sR, ATBUF+513. BUFFER FULL ?? 
3477 007342 001420 BEQtité8S :BR IF YES 
3479 007344 022767 000012 012776 (MP «#12, SINGLE ;WAS IT A LINE FEED 2? 
3480 007352 001011 BNE 2 :BR IF NOT 
3482 007354 016700 013052 MOV —- FILLB, RO ;LOAD LF PLUS FILLERS 
3483 007360 116725 012764 MOVB SINGLE, (R5)+ 
3484 007364 116725 013040 11$: MOVB  FILLA.(R5)* — LOAD A FILLER CHAR 
3485 007370 005300 DEC —_ RO 
3486 007372 001374 BNE 11$ >BR TILL REQUIRED FILLERS LOADED 
3487 007574 000744 BR 1$ GO ASK FOR ANOTHER CHAR 
3489 007376 116725 012746 2$:  MOVB SINGLE.(R5)+ —;LOAD IT IN BUFFER 
3490 007402 000741 BR 1$ :GO GET NEXT CHAR 
3492 007404 112767 000136 016612 3$:  MOVB #136, £C3 ;ECHO CONTROL-C 
3493 007412 112767 000103 016605 MOVB #103.EC3+1 
3494 007420 104401 TYPE 
3495 007422 026224 EC3 
96 007424 162705 032754 SUB ss #WTBUF .R5 ;SET UP CHAR COUNT 
3497 007430 005405 NEG 5 
3498 0074352 010567 012136 MOV = RS, CHRCNT 
3499 907436 004767 000050 4$: JSR “DHST2 ;GO0 EXECUTE PATTERN 
3500 007442 005267 012674 INC DAT CNT 
3501 007446 026767 012702 612666 (MP —-s- PATLIM,DATCNT =; DONE_REQUIRED ITERATIONS 
3502 007454 00137 BNE 4$ BR 1F NOT 
3504 007456 016767 012660 171476 MOV —-»DATCNT,$REGO —; SAVE_ITERATION COUNT 
3505 007464 005067 012652 CLR _—DATCNT INIT ITERATION COUNTER 
3506 007470 012767 007500 171412 MOV #5$,SLPERR RETURN TO 5$ 
3507 007476 104024 ERROR 24 DONE REQUIRED ITERATIONS 
3508 007500 105777 171434 5$: TSTB = @SWR :LOCK ON THIS BUFFER ? 
3509 007504 100754 BMI = «4$ :BR IF YES 
3510 007506 000167 176532 JMP ss EXPATS >GO ASK FOR NEW PATTERN 


CZDHN=D MACY11 30A(1052) 
27-DEC-78 1 


CZ2DHND .P11 


004767 
056761 
004767 


012767 
005067 


104025 


005726 
000167 


052711 
004767 
000207 


27-DEC=78 15:31 PAGE 82 
15:28 SUB=PROGRAM 
005122 DHST2: JSR 
012004 000012 BIS 
011670 JSR 
000200 012574 PTWAIT: MOV 
012572 CLR 
012034 1$: TST 
BNE 
007332 JSR 
BR 
004000 011730 MOV 
012552 171370 MOV 
012546 171364 MOV 
007610 171302 MOV 
ERROR 
2$: TST 
176426 JMP 
004000 3$: BIS 
000740 JSR 
RTS 


D 7 


LINMSK ,BAR(R1) 


PC ,CHPS1 
#200, TIMEA 
TIMER, 


RDONE 
$ 


3 
PC, TIMEIT 
1$ 


#B1T11,@DHADR 
DATCNT , $REGO 
DATPAT , $REG1 


#2$,$LPERR 
25 


(SP) + 
EXPATS 


#BIT11,(R1) 


PC, CKERDP 
PC 


THREE - DATA PATTERNS TESTS 
PC ,DHSET1 


:GO SET UP THE DH11 
sACTIVATE THE LINE 
:GO CLEAR PSW 


; INIT TIMERS 


sDONE ENTIRE PATTERN ? 
7BR IF YES 


;CALL THE TIMER 
sEXECUTED IF NO TIMEOUT 


>CLEAR THE DH11 
SAVE ITERATION COUNTER 


;SAVE PATTERN TYPE 
7SET UP ERROR RETURN 
;DATA PATTERNS TEST TIMEOUT ERROR 


sFIX STACK SINCE WE ARE SKIPPING RTS 
:GO ASK FOR NEW PATTERN 


:CLEAR THE DH11 
:GO CHECK DATA BUFFERS 
sRETURN TO CONTROL ROUTINE 


SEQ 0081 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 


CZDHND .P11 


27-DEC-78 
15:28 


002000 


011570 
175760 
005234 
005144 


007706 


176326 


011506 
004000 


100000 
012202 
077760 


005146 
005056 
007774 
176240 
000012 


011416 


005060 
004770 


010062 


171204 


171116 


171030 


15:31 


PAGE 83 


E 7 


SUB=PROGRAM THREE - DATA PATTERNS TESTS 


; TRANSMITTER INTERRUPT SERVICE ROUTINE THREE 


TINTS: 


1$: 


2$: 


3$: 


4$: 


#B1T10,(R1) 
2$ 


(R1) .R3 
PC, CHPS2 
weiTt) (R1) 
w1 75960, R3 
R1, 
PC; Seer 

5. SUNUM 
#18, SLPERR 
(SP) +, (SP)+ 
(SP) + 
EXPAT3 
(R1).R3 
4$ 
PC, CHPS2 
#B1T11,(R1) 
#BIT15_.R4 


aa copes 
(SP) +, (SP) + 
(SP) + 
EXPAT 3 
BAR(R1) 

6$ 

Pc ,CHPS2 
BAR(R1) ,R3 
#BIT11,(R1) 
R4 

R1,R2 

#BAR ,R2 

PC ,SUER1 

R5_, SUNUM 


@ 


o°8 -SLPERR 


sNON EX MEM ERROR ?? 
BR IF NOT 


; SAVE THE SCR 
:GO LOCK OUT INTRS 
sCLEAR OUT THE DH11 


:GO SET UP LINE NO. 


;SET UP THE S/B DATA 

>CLEAR OUT SUPERFLUOUS BITS 
SET UP REGADR 

:GO SET UP ERROR INFO 

IN MSG 


;SET UP THE ERROR LOOP RETURN 
sNON EX MEM ERROR 


sPOP THE STACK 
sFIX STACK SINCE NO RTS IS EXECUTED 
:GO ASK FOR NEW PATTERN 


:GET THE SCR REG CONTENTS 
:BR IF XMIT DONE SET 


:GO LOCK OUT INTRS 
:CLEAR THE DH11 — FATAL ERROR 
SET UP S/B DATA 


:CLEAR OUT SUPERFLUOUS BITS 
:SET UP REGADR 

:GC SET UP ERROR INFO 

:GO SET UP LINE NO. IN MSG 


SET UP ERROR LOOP RETURN 

:XMITTR FALSE INTERRUPT 

:POP THE STACK 

sFIX STACK SINCE NO RTS IS EXECUTED 
:GO ASK FOR NEW PATTERN 


:DID BAR BIT CLEAR ?? 
BR IF YES 


:GQ LOCK OUT INTRS 


SET UP REGADR 
;GO SET UP ERROR INFO 
:GO SET UP LINE NO. IN MSG 


;SAVE THE ERROR LOOP RETURN 
sBUFFER ACTIVE REG FAILED TO CLEAR 


SEQ 0082 


CZDHN=D MACY11_30A(1052) 27=DEC-78 15:31 PAGE 84 

CZDHND.P11 = 27=DEC=78 15:28 SUB-PROGRAM 
3593 010062 022626 S$: CMP 
3594 010064 005726 TST 
3595 010066 000167 176152 JMP 
3597 010072 005761 0000.0 6$: TST 
3598 010076 001430 BEQ 
3600 010100 004767 011330 JSR 
3601 010104 016103 000010 MOV 
3602 010110 012711 004000 MOV 
3603 010114 00500 CLR 
3604 010116 010102 MOV 
3605 010120 062702 000010 ADD 
3606 010124 004767 004772 JSR 
3607 010130 004567 004702 JSR 
3608 €10134 027144 L INE 
3609 010136 023017 EMA +52 
3610 010140 012767 010150 170742 MOV 
3611 01014 ERROR 
3612 010150 022626 7$: CMP 
3613 010152 005726 TST 
3614 010154 000167 176064 JMP 
3616 010166 014103 000006 8s: MOV 
3617 010164 076704 011404 MOV 
3618 010170 005404 NEG 
3619 010172 062704 032754 ADD 
3620 010176 020304 CMP 
36¢1 010200 001425 BEO 
3623 010202 004767 011226 JSR 
3624 010206 016102 MOV 
3625 010210 062702 000006 ADD 
3626 010214 004767 004702 JSR 
3627 019220 004567 004612 JSR 
3628 010224 022144 LINE 
3629 010226 023101 EM5+57 
2630 010230 012767 010240 170652 MOV 
3631 010236 104005 ERKOR 
3632 010240 022626 9S: CMP 
3633 010242 005726 TST 
3634 010244 000167 175774 IMP 
3636 010250 000002 10$: RTI 


, oF 
THREE - DATA PATTERNS TESTS 


(SP)+,(SP)+ 
(SP) + 
EXPAT 3 
BCR(R1) 

8$ 
PC,CHPS2 


BCR(R1) ,R3 
#B1T11,(R1) 
R4 


kaa 
(SP)+,(SP)+ 
(SP) + 
EXPATS 


CAR(R1) ,R3 
CHRCNT ,R4 
R4 


#TBUF .R4 
R3.R4 
10$ 


PC ,CHPS2 
R 


SPn-SLPERR 


(SP)+,(SP)+ 
(SP) + 
EXPAT 


sPOP GOES THE STACK 
sFIX STACK SINCE NO 


RTS IS EXECUTED 


:GO ASK FOR NEW PATTERN 


:GO LOCK OUT INTRS 
:GFET THE WAS DATA 
sCLEAR THE DH11 
>SET UP S/B DATA 
;SET UP REGADR 


:DID BYTE COUNT GO TO ZERO ?? 
;BR IF YES 


:GO SET UP THE ERROR INFO 


:GO SET UP LINE NO. 


IN MSG 


SET UP ERROR LOOP RETURN 


sBYTE COUNT REG FAILED TO GO TO 000000 


:POP GOES THE STACK 
sFIX STACK SINCE NO 


RTS IS EXECUTED 


:GO ASK FOR NEW PATTERN 


;GET THE WAS DATA 
SET UP S/B DATA 


7WAS CAR CORRECT ?? 
;BR IF YES 


:GO LOCK OUT INTRS 
SET UP REGADR 


:GO SET JP ERROR INFO 


-GO SET UP LINE NO. 


IN MSG 


SET UP THE ERROR RETURN 
; CURRENT ADDRESS REG NOT CORRECT 


;POP THE STACK 
FIX STACK SINCE NO 


:GO ASK FOR NEW PATTE 


RTS IS EXECUTED 
TERN 


SEQ 0083 


G 7 


CZDHN=D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 85 
CZDHND P11 27=DEC=78 15:28 SUB-PROGRAM THREE ~ DATA PATTERNS TESTS SEQ 0084 

beg ld ;RECEIVER INTERRUPT SERVICE ROUTINE THREF 

3639 010252 032711 040000 RINT3: BIT #B1T14,(R1) :SILO OVERFLOW ERROR ?? 

3640 010256 001427 BEQ 2$ “BR IF NOT 

3642 010260 004767 011150 JSR PC, CHPS2 :G0 LOCK OUT INTRS 

3643 010264 011103 MOV (R1) .R3 :GET THE WAS DATA 

3644 010266 012711 004000 MOV #B1711,(R1) =NOW CLEAR THE DH11 

3645 010272 042703 177760 BIC #177760,R3 “CLEAR JUNK 

3646 010276 116704 011642 MOVB —LINE,R4 

3647 010302 004767 004614 JSR PC, SUER1 :GO SET UP ERROR INFO 

3648 010306 004567 004524 JSR R5, SUNUM :GO SET UP LINE NO. IN MSG 

3649 010312 022144 LINE 

3650 010314 023150 EM6+44 | 

3651 010316 012767 010326 170564 MOV #1$,$LPERR :SET UP ERROR LOOP RETURN 

3652 010324 104 ERROR 6 SILO OVERFLOW ~ BAD,BAD,BAD !!! 

3653 010326 022626 1$: CMP (SP)+, (SP) + -POP GOES THE STACK 

3654 010330 005726 TST (SP) + :FIX STACK SINCE NO RTS IS EXECUTED 

3659 010332 000167 175706 JMP EXPAT3 7GO ASK FOR NEW PATTERN 

3657 010336 105711 2$: TSTB (R1) CHAR AVAIL SET ?? 

3698 010340 100432 I 4$ :BR IF YES 

3660 010342 004767 011066 JSR PC, CHPS2 :G0 LOCK OUT | INTRS 

3661 010346 011103 MOV (Ri) .R3 :GET WAS DAT 

3662 010350 042703 177560 BIC #177560.R3 CLEAN IT o 

3663 010354 012711 004000 MOV #B1T117,(R1) -NOW CLEAR DH11 

3664 01036C 012704 000200 MOV #BITO7_R4 :SET UP S/B DATA 

3665 010364 156704 011554 BISB —_ LINE. R& 

3666 010370 010102 MOV R1,R2 :SET UP REGADR 

3667 010372 767 004524 JSR PC, SUER1 :GO SET UP ERROR INFO 

3668 010376 567 004434 JSR RS, SUNUM :GO SET UP LINE NO. IN MSG 

3669 010402 022144 LINE 

3670 010404 023224 EM7+51 

3671 010406 012767 010416 170474 V #3$.$LPERR ;SET UP THE ERROR LOOP RETURN: 

3672 010414 104007 ERROR 7 >RECEIVER FALSE INTERRUPT 

3673 010416 022626 38: CMP (SP)+, (SP) + :POP GOES THE SP 

%674 010420 005725 TST (SP)+ :FIX STACK SINCE NO RTS IS EXECUTED 

3675 910422 000167 175616 JMP EXPAT3 GO ASK FOR NEW PATTERN 

3677 010426 016167 000002 170546 4$: MOV NRC(R1),$TMPO  :=SAVE THE DATA RECEIVED 

3678 010434 2 BM! 64 :BR IF IT WAS VALID DATA 

3680 010436 767 010772 JSR PC,CHPS2 :GO LOCK OUT INTRS 

3681 010442 012711 004000 MOV #81T11,(R1) =NOW CLEAR THE DH11 

3682 010446 162767 030474 020014 SUB #RBUF .RBFPTR §:WHICH CHAR WAS IT ?? 

%683 010454 016702 020010 MOV RBFPTR.R :SAVE CHAR NUMBER 

3684 010460 767 004432 JSR PC, SUER2 :GO SET UP ERROR INFO 

3685 010464 567 004346 JSR 5.5 :GO SET UP LINE NO. IN MSG 

3686 010470 022144 LINE 

3687 010472 023274 EM10+45 

3688 010474 012767 010504 170406 MOV #5$.$LPERR :SET UP ERROR RETURN 

3689 010502 104010 ERROR 10 ;RECEIVED INVALID DATA 

390 010504 022626 5$: CMP (SP) +, (SP)+ -POP GOES THE STACK 

3691 010506 0057 TST (SP) + *FIX STACK SINCE NO RTS IS EXECUTED 

3692 010510 000167 175530 JMP EXPAT3 :GO ASK FOR NEW PATTERN 


CZDHN=D MACY11 30A(1052) 
27=DEC=78 15:28 


CZ2DHND P11 


010564 


016777 


27=DEC=78 15: 


170462 
000001 
011050 


000001 
011032 


000001 


017746 
017740 
017732 


017722 
017714 


011016 


31 PAGE 86 
SUB=PROGR4M 
6$: MGV 
ADD 
CMP 
BEQ 
ADD 
CMP 
BNE 
7$: BIS 
8$: RT] 


H 7 


THREE = DATA PATTERNS TESTS 


$TMPO,ARBFPTR 
#1,RBFPTR 
. emeaieliilid 


#1 ,RBFPTR 
taal 


#1 ,RDONE 


:STORE CHAR IN THE BUFFER 
s UPDATE THE POINTER 

sEND OF BUFFER ?? 

;BR IF YES 


;BR IF NOT DONE 
;SET SOFTWARE DONE FLAG 
sRETURN TO WAIT LOOP 


SEQ 0085 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND .P11 


010566 
010574 


010710 


010712 
010716 


010750 
010752 


27=DEC-78 15:31 
SUB=PROGRAM THREE - DATA PATTERNS TESTS 


030474 917674 
032754 017670 


017664 


011526 
100000 


011532 
017634 


170354 


017616 
017614 


032754 


010710 1702C2 


017554 
600001 017544 


010654 017536 


000001 017526 
010636 017520 


:THIS ROUTINE IS CALLED TO eres THE RECEIVED DATA AND REPORT ALL ERRORS 


PAGE 87 


I 


:FOR THE DATA PATTERNS TEST 


1$: 


3$: 


4$: 


CKERDP: MOV ARBUF ,RBFPTR :;SET UP POINTERS 
MOV #TBUF ,TBFPTR 
MOVB @TBFPTR,R4G :GET THE S/B DATA 
Sw4B R4 ;PUT LINE NO. IN HIGH BYTE 
CLRB RS 
BISB LINE ,R4S 
SWAB 
BIS #BIT15,R4 ;AND FINALLY THE VALID DATA BIT 
BIC CLMSK ,R4 sMASK OFF BITS NOT XMITTED 
MOV @RBFPTR,R3 :GET THE WAS DATA 
CMP LRG sWAS = S/B 27777 
BEQ 7BR IF YES 
MOV R3,$TMP7 ;SAVE THE WAS DATA 
MOV R1,-(SP) ;SAVE THE DEVADR 
MOV RBFPTR,R1 :GET THE SBADR 
MOV TBFPTR,R2 3GET THE WASADR 
MOV 2,R0 :GET XMIT BUFFER ADDR 
SUB #TBUF ,RO ;GENERATE CHAR # 
JSR PC, SUER2 :GO SET UP ERROR INFO 
JSR R5,S :GO PUT LINE NO. IN MSG 
LINE 
EM11+23 
V #2$.$LPERR ;SET UP ERROR RETURN 
ERROR 17 
70R OVERRUN 
MOV (SP)+,R1 SRESTORE THE DEVADR 
INC TBFPTR ;UPDATE POINTERS 
ADD #1 ,.RBFPTR 
CMP RBFEND ,RBFPTR ;COMPARED ALL CHARS ?? 
BEQ 4$ ;BR IF YES 
ADD #1, RBFPTR ;UPDATE IT AGAIN 
CMP RBFEND ,RBFPTR sDONE YET ? 
BNE 1$ :BR IF NOT 
RTS PC SRETURN TO WAIT LOOP 
en ee 


7 


sDATA COMPARE ERROR OR PARITY, FRAMING 


SEQ 0086 


CZDHN=D MACY11 30A(1052) 
CZDHND .P11 27-DEC-78 


010754 


0 
011974 


104407 


005067 
632777 
001104 


27~DEC-78 


15:28 


170120 
170234 
170246 
100000 


011061 
170214 


011056 
000042 


377 
042412 
051501 


011040 
040000 


170240 


000 
042116 
020123 


170026 


15:31 


~ SBTTL 


PAGE 88 
END OF PASS ROUTINE 





SEQ 008/ 


END OF PASS ROUTINE 


"hs ro" Supt iehctay=t daa alienate 
: SINCREMENT THE PASS NUMBER ($PASS 

:*TYPE “END PASS #XXXXX'' (WHERE ae IS A DECIMAL NUMBER, 

:*IF THERES A ae GO TO IT 


;*IF THERE ISN'T 


$SEOP: 


$EOPCT: . 


SENDCT: 


$GET42: 


SENDAD : 


$DOAGN: 


SRINAD: 
SENULL : 
SENDMG: 


- SBT TL 


JUMP TO START2 


SCOPE 
CLR STSTNM 37ZERO THE TEST NUMBER 
CLR STIMES :2ZERO THE NUMBER OF iTERATIONS 
INC $SPASS ; « INCREMENT THE PASS NUMBER 
BIC #100000, $PASS 7;DON'T ALLOW A NEG. NUMBER 
DEC (PC) + 3; ;LOOP? 
WORD 1 
BGT SDOAGN ss¥es 
MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
. WORD 1 
SEOPCT 
TYPE ,~ SENDMG 7: TYPE ‘END PASS #°’ 

V SPASS .-(SP) 72SAVE SPASS FOR TYPEOUT 
TYPDS ot TYPE--DECIMAL ASCII WITH SIGN 
TYPE » SENULL YPE A NULL CHARACTER 
MOV a42,R0 ci GET MONITOR ADDRESS 
BEQ SDOAGN 3 ;BRANCH IF NO MONITOR 
RESET 72CLEAR THE WORLD 
JSR PC, (RO) ;:G0 TO MONITOR 
NOP 77 SAVE ROOM 
NOP s FOR 
NOP S3ACT11 
JMP a(PC)+ : RETURN 
. WORD tl 


.BYTE ,0 z =NULL CHARACTER STRING 
ASCI2Z aioe PASS # 


SCOPE HANDLER ROUTINE 


FREER EREEEEEREKEK REAR ERERAKERERRREREREERERERERR REE 


“RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. I7 WILL INCREMENT 
; *AND LOAD eS TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


;*AND LOAD T 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3 *SW11= 


= *SWO9= 


: *CALL 


$SCOPE : 


1$: 


HE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 


« 3:SCOPE=I0T 


SCOPE 

CKSWR TEST FOR CHANGE IN SOF T=SWR 
CLR LINE ; INIT LINE COUNTER 

BIT #B1T14,aSWR =;LOOP ON PRESENT TEST? 

BNE SOVER SsYES IF Swi4=1 


CZDHN=D MACY?1 30A(1052) re 15:31 PAGE 89 


CZDHND .P11 27-DEC-78 15:28 SCOPE HANDLER ROUTINE SEQ 0088 
3801 terersel OF CODE FOR THE XOR TESTERMSHAFA 
3802 011114 000416 $XTSTR : BR 6$ ee RUNNING ON THE XOR"' TESTER CHANGE 
3803 | ‘eae INSTRUCTION TO A ’'NOP’’ (NOP=240) 
3804 011116 013746 000004 MOV Q@AERRVEC ,-(SP) SAVE THE ent OF THE ERROR VECTOR 
3805 011122 012737 011142 000004 MOV ota AAERRVEC :SET FOR TIMEOU 
3806 011130 005737 177060 TST a4177060 IME OUT ON XOR? 
3807 011134 012637 000004 MOV CSP) +, @AERRVEC : RESTORE THE ERROR dallas 
3808 011140 000453 BR $SVLAD :GO TO THE NEXT TEST 
3809 011142 022626 5$: CMP (SP)+,(SP)+ >: CLEAR THE STACK AFTER A TIME OUT 
3810 011144 012637 000004 MOV (SP) +, @FERRVEC py 3 THE ERROR VECTOR 
3811 011150 000413 7$ LOOP ON Meg PRESENT TEST 
3812 011152 6$::AA4AAAEND OF See FOR THE XOR FESTEROWM 
3815 011152 105767 167725 2$: TSTB SERFLG + HAS AN ERROR OCCURRED? 
3814 011156 001421 BEQ 3$ ;BR IF NO 
3815 011160 126767 167731 167715 CMPB SERMAX, SERFLG ; sMAX, ERRORS FOR THIS TEST OCCURRED? 
3816 011166 101015 . BH] IF NO 
3817 011170 032777 001000 167742 BIT #BITO9,aSWR >: LOOP ON ERROR? 
3818 011176 1404 BEQ 4$ 37BR IF NO 
3819 011200 016767 167704 167700 7$: MOV S$LPERR,$LPADR 3:SET LOOP ADDRESS TO LAST SCOPE 
3820 011206 46 BR SOVER 
3821 011210 105067 167667 4$: CLRB 3:ZERO THE ERROR FLAG 
3822 011214 005067 170002 CLR :;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3823 011220 15 BR ;sESCAPE TO THE NEXT TEST 
3824 011222 032777 004000 167710 3$: BIT 3; INHIBIT ITERATIONS? 
3825 011230 001011 BNE 77BR IF YES 
3826 011232 005767 170002 TST :o1F FIRST PASS OF PROGRAM 
3827 011236 001406 BEQ INHIBIT ITERATIONS 
3828 011240 005267 167640 INC SICNT > INCREMENT ITERATION COUNT 
3829 011244 026767 167752 167632 CMP STIMES,SICNT +s CHECK THE NUMBER OF ITERATIONS MADE 
3830 011252 002024 BGE SOVER . IF MORE ITERATION REQUIRED 
3831 011254 012767 000001 167622 1$: MOV ‘ : #REINITIALIZE THE ITERATION COUNTER 
3832 011262 016767 000052 167732 MOV SMXCNT .STIMES T NUMBER OF ITERATIONS TO DO 
3835 011270 105267 167606 $SVLAD: INCB STSTNM >: COUNT TEST NUMBERS 
3834 011274 116767 167602 167734 MOVB STSTNM,STESIN :SET TEST NUMBER IR APT MAILBOX 
3835 011302 011667 7600 MOV SP) ,SLPADR SAVE SCOPE LOOP ADDRESS 
3856 011306 011667 167576 MOV 7:SAVE ERROR LOOP ADDRESS 
3837 011312 5067 167706 CLR -¢ CLEAR THE ESCAPE FROM ERROR ADDRESS 
3838 011316 112767 000001 167571 MOVB #1, SERMAX sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
3839 011324 016777 167552 167610 $OVER: MOV STSTNM, @DISPLAY : {DISPLAY TEST NUMBER 
3840 011332 016716 167550 MOV ‘ADR, vee RETURN ADDRESS 
3841 1336 000092 RTI FIXES PS 
3842 011340 000010 SMXCNT: 10 - NUMBER OF ITERATIONS 
sBae -SBTTL ERROR HANDLER ROUTINE 
3845 LAER REREEREERERREKRARR ARERR RK AKREREREREREEREEREERRERER 
3846 “STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
3847 : *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3248 :*AND GO TO SERRTYP ON ERROR 
3849 ; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3850 > *SW15=1 HALT ON ERROR 
3851 > *SW1 3=1 INHIBIT ERROR TYPEOQUTS 
3852 = *SWO9=1 LOOP ON ERROR 
3853 = *CALL 
3854 is ;;ERROR=EMT AND N=ERROR J TEM NUMBER 


ERROR N 


5 
3856 011342 $ERROR: 


CZDHN=D MACY11 30A(1052) 
27-DEC-78 15:28 





CZDHND.P11 


| 
Ww LW 
KALE IAEE 


— 3 2) 0) 3 
A) — —3 


RRL 


elelelelelelelelelolelelele) 
Wwron 


NVRRORWR 


011512 


104407 


122767 
C01 
116767 
004 


016716 
000002 


27~DEC-78 


167533 
167524 


000074 
001227 


000001 


167454 
001174 


167462 


001000 


167410 
167520 


167512 


001227 


001174 


167360 


001326 
000004 


15:31 
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ERROR HANDLER ROUTINE SEQ 0089 
CKSWR ‘ites! FOR CHANGE IN SOF T=SwR 
7$: INCB SERFLG 3:SET THE ERROR FLAG 
BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
167562 MOV $TSTNM,aDISPLAY : SDISPLAY TEST NUMBER AND ERROR FLAG 
INC SERTTL ; INC THE ERROR COUNT 
MOV (SP) , SERRPC GET ADDRESS OF ERROR INSTRUCTION 
167520 SUB #2, $ERRPC 
167510 MOVB @SERRPC,.S$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
167526 BIT #B1T13.,aSWR 3:SKIP TYPEOUT IF SET 
BNE 20$ :;z;SKIP TYPEOUTS 
JSR PC, S$ERRTYP :7G0 TO USER ERROR ROUTINE 
20s TYPE ~SCRLF 
167620 CMPB HAPTENV, SENV ; s RUNNING IN APT MODE 
BNE 2$ 7;NO,SKIP APT ERROR REPORT 
000004 MOVB SITEM3,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
JSR PC ,SATY4 ;;REPORT FATAL ERROR TO APT 
21$: -BYTE OQ 
-BYTE OQ 
223: BR 22$ + APT ERROR LOOP 
2$: TST @SWR ;HALT ON ERROR 
BPL 3$ ; sSKIP IF CONTINUE 
HALT T ON ERROR! 
CKSWR ::TEST FOR CHANGE IN SOF T-SwR 
167446 3$: ai? at 10? Bae ; LOOP —_— SWITCH SET? 
MOV SLPERR, (SP) «FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE ; s CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ 7BR IF NONE 
‘“ MOV SESCAPE . (SP) >: FUDGE RETURN ADDRESS FOR ESCAPE 


RTI RETURN 
-SBITL ERROR MESSAGE TYPEOUT ROUT INE 


{ ERRKEERARRARERREREK A ERRRAERERAEREA RR ERRARERRERERRRER ERR EEE RE RE 
SSTHIS ROUTINE USES THE “‘ITEM CONTROL BYTE** (SITEMB) TO DETERMINE WHICH 
-*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB). 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE ,$CRLF :;"‘CARRIAGE RETURN'' & “LINE FEED" 
MOV RO,-<SP) 
CLR ::PICKUP THE ITEM INDEX 
BISB  a#SITEMB.RO 
1$ iif ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
MOV SERRPC ,-(SP) SAVE SERRPC FOR TYPEQUT 
«TERROR ADDRESS 
TYPOC ;3G0 TYPE=-OCTAL ASCIICALL DIGITS) 
BR 10$ OUT 
1S: He RO : ;ADJUST THE INDEX SO_THAT IT WILL 
ASL RO i WORK FOR THE ERROR TABLE ~—.--—-- 
ASL RU 
ASL RO 
ADD #$SERRTB,RO i3FORM TABLE POINTER 
MOV - (RO)+,2$ : :PICKUP APERROR MESSAGE'* POINTER 


CZDHN=D MACY11_ 30A(1052) 
CZDHND.P11 27-DEC-78 15:28 


ttt de Sy 
RSE 


—_— 2 3 


SERS 


elelelelelelelelelelelele) 
AO 


Ooo 
_— — 
— 
OR 
MINN) 
FMOOSNM 


ab 


011650 
011652 


001404 
104401 
00000 


0 

104401 

012067 
04 


011670 


27~DEC-78 


007227 
000004 


001227 


011664 


001227 
000 


M 7 
15:31 PAGE 91 
ERROR MESSAGE TYPEQUT ROUTINE 


BEQ 3$ 
TYPE 
2$: -WORD 0 
TYPE CRLF 
3$ MOV (RO) +,4$ 
BEQ 5$ 
TYPE 
4$ -WORD 0 
TYPE ,SCRLF 
5$: MOV R1,-(SP) 
MOV (RO) +,R1 
BEQ 9$ 
MOV (RO) +,RO 
6$: TSTB (RO) + 
BNE 7$ 
V @(R1)+,-(SP) 
TYPOC 
8$ 
7$: 
MOV @(R1)+,-(SP) 
TYPDS 
8$: TST (R1) 
BEQ ot 
TYPE ~11$ 
BR 6$ 
9$: MOV (SP)+,R1 
10$: MOV (SP) + “RO 
TYPE .$CRLF 
RTS PC 


11$: ASCIZ / / 


::$KIP TYPEQUT IF NO POINTER 
TYPE THE ‘ERROR MESSAGE" 

i7/'ERROR MESSAGE’’ POINTER GOES HERE 

‘i CARRIAGE RETURN’ & "LINE FEED" 

::PICKUP ‘DATA HEADER’ POINTER 

ii SKIP TYPEOUT IF 0 

:: TYPE THE "DATA HEADER’’ 

;2'DATA HEADER’’ POINTER GOES HERE 

a a RETURN’ & “LINE FEED’ 


: ¢PICKUP ‘DATA TABLE’’ POINTER 


: I C IMAL 
«SAVE @(R1)+ FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


+s SAVE @(R1)+ FOR TYPEOUT 
7 TYPE--DECIMAL ASCII aia SIGN 
71S Hein ANOTHER NUMBER? 


; IF NO 
3 TYPE TWO(2) SPACES 


7 RESTORE R1 
;ZRESTORE RO 
23 CARRIAGE RETURN’ & “LINE FEED’ 


2 RET 
3-TWO(2) SPACES 


-EVEN 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


2 TEER KREEREEAEKERERARARAEKEKRERAEEAEEEEERKERERERERRERERERARERERE 


RTHIS ROUTINE IS USED TO a ig A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:*OCTAL (ASCII) NUMBER AND T 


YPE IT. 
; *STYPOS=~~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


* 


= *CALL: 

;* MOV NUM ,- (SP) 
sk TYPOS 

7* -BYTE oN 

7” -BYTE -™ 

;* 

-* 


; NUMBER TO BE TYPED 
23 CALL FOR TYPEOUT 
7eN=1 oR Fs FOR NUMBER OF DIGITS TO TYPE 


:1=TYPE LEADING ZEROS 
 IO=SUPPRESS LEADING ZEROS 


ares ca eee TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;*$TYPOS OR 
*CALL: 


8 MOV NUM, =(SP) 
i* TYPON 
i. MOV NUM, -(SP) 
ie TYPOC 


: =NUMBER TO BE TYPED 
:-CALL FOR TYPEOUT 


{$1 YPOC—--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; NUMBER TO BE TYPED 
:sCALL FOR TYPEOUT 


SEQ 0090 


N 7 
CZDHN=D MACY11_ 30A(1052) ?7=DEC-78 15:31 PAGE 92 


CZDHND.P11  27=DEC-78 15:28 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0091 
3969 
3970 011670 017646 000000 $TYPOS: MOV a(SP),-(SP) + «PICKUP THE MODE 
3971 011674 116667 0600001 000211 MOVB  1(SP) °$OF ILL ;;LOAD ZERO FILL SWITCH 
3972 011702 112667 000207 MOVB  (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
3973 011706 062716 000002 ADD #2, (SP) + :ADJUST RETURN ADDRESS 
3974 011712 000406 BR $TYPON 
3975 011714 112767 000001 000171 $TYPOC: MOVB  #41.$0FILL i3SET THE ZERO FILL SWITCH 
3976 011722 112767 000006 000165 MOVB  #6.$OMODE+1 -:SET FOR SIX(6) DIGITS 
3977 011730 112767 000005 000154 $TYPON: MOVB #5 _$OCNT :7SET THE ITERATION COUNT 
3978 011736 010346 MOV R3.-(SP) + SAVE R3 
3979 011740 010446 MOV R4.-(SP) SAVE RG 
3980 011742 010546 MOV R5.=(SP) = SAVE R5 
3981 011744 116704 000145 MOVB  $OMODE+1.R4 ::GET THE NUMBER OF DIGITS TO TYPE 
3982 011750 005404 NEG R4 
3983 011752 062704 000006 ADD #6,R4 :: SUBTRACT IT FOR MAX. ALLOWED 
3984 011756 110467 000132 MOVB R4.$OMODE -:SAVE IT FOR USE 
3985 011762 116704 000125 MOVB  $0FILL.RG 7:GET THE ZERO FILL SWITCH 
3986 011766 016605 000012 MOV 12(SP).R5  #* +::PICKUP THE INPUT NUMBER 
3987 011772 005003 CLR R3 >: CLEAR THE OUTPUT WORD 
3988 011774 006105 1$: ROL R5 : ROTATE MSB INTO ‘‘C’’ 
3989 011776 000404 BR 3$ =:GO DO MSB 
3990 012000 006105 2$: ROL R5 77 FORM THIS DIGIT 
3991 012002 006105 ROL R5 
3992 01 006105 ROL 5 
3993 012006 010503 MOV R5,R3 
3994 012010 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
3995 012012 105367 000076 DECB § $OMODE s 3 TYPE THIS DIGIT? 
3996 012016 100016 BPL 7$ F NO 
3997 012020 042703 177770 BIC #177770.R3 -:GET RID OF JUNK 
3998 012024 001002 4$ 2:7 
3999 012026 005704 TST RG >: SUPPRESS THIS 0? 
4000 012030 001403 BEQ 5$ ::BR IF YES 
4001 012032 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
4002 012034 052703 000060 BIS #'°0.R3 >:MAKE THIS DIGIT ASCII 
4003 012040 052703 000040 S$: BIS #" °R3 ::MAKE ASCII IF NOT ALREADY 
4004 012044 110367 000040 MOVB  R3,8$ :7SAVE FOR TYPING 
4005 012050 104401 012110 TYPE a$ -GO TYPE THIS DIGIT 
4006 012054 105367 000032 7$: DECB = $OCNT 3 BY 1 
4007 012060 003347 BGT 2$ :3BR IF MORE TO DO 
4008 012062 002402 BLT 6$ -:BR IF 
4009 012064 005204 INC | ae >: INSURE LAST DIGIT ISN'T A BLANK 
4010 012066 000744 BR 2$ >:GO DO THE LAST DIGIT 
4011 012070 012605 6S: MOV (SP)+,R5 > =RESTORE RS 
4012 012072 012604 MOV (SP)+_~R4 > RESTORE R4 
4013 012074 012603 MOV (SP)+.R3 ::RESTORE R3 
4014 012076 016666 000002 000004 MOV 2(SP),4(SP) >:SET THE STACK FOR RETURNING 
4015 012104 012616 MOV (SP)+° (SP) 
4016 012106 RTI RETURN 
- 4017 012110 000 8$: .BYTE 0 < STORAGE FOR ASCII DIGIT 
¢ 4018 012111 000 ‘BYTE 0 >: TERMINATOR FOR TYPE ROUTINE 
4019 012112 000 $0C ‘BYTE O ::OCTAL DIGIT COUNTER 
4020 012113 000 SOF ILL: ‘BYTE 0 ;3ZERO FILL SWITCH 
4021 012114 000000 SOMODE: .WORD 0 :NUMBER OF DIGITS TO TYPE 
4022 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


4024 FIT ITT ITI TTT TTR RIOT IIR RRR RR ER EERE RRR ERE RE RR RE 


v . We 8 
30A(1052) 27=PEC=78 15:31 PAGE 93 


27-PEC-78 15:28 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


EzDHND MAC Y11 
CZDHND P11 SFO 0092 


ce et et 


POPoOreEMoNMgMNony 
kd et od 
asia) 


NOOGMARRE 
Wr & Se ee 
ORMARNOROO ROARS 


&F 


CSOOCOSCOCCOCOCOCOCCOCOCOOCO 
™~ 
Nm 


ee ed ed eed eed eed ed eed eed 


POPSPSMPoMONMONMoPon 


_ 
~N 
> 


020200 
000020 


000055 
0123352 
000040 


012522 


000001 
000060 
000040 


000010 


177777 


012332 


000001 


177777 


177776 


s*THIS ROUTINE IS USED 10 CHANGE A 16-BIT BINARY NUMBER TO A 5=DIGIT 
-*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
> "BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BF 
;*REPLACED WITH SPACES. 


*SCAil; 
+ MOV NUM, = (SP) :7PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS ::GO TO THE ROUTINE 
STYPDS: 
MOV RO,-(SP) : PUSH RO ON STACK 
MOV R1,-(SP) :;PUSH R1 ON STACK 
MOV R2,-(SP) : PUSH R2 ON STACK 
MOV R3,-(SP) ; PUSH R3 ON STACK 
MOV R5,=(SP) > PUSH R5 ON STACK 
MOV #20200, -(SP) ;; SET BLANK SWITCH AND SIGN 
MOV 20(SP) .R5 ::GET THE INPUT NUMBER 
BPL 1$ ;:BR IF INPUT IS POS. 
NEG R5 ; MAKE THE BINARY NUMBER POS. 
MOVB 3 = #*~, 1(SP) 7 MAKE THE ASCII] NUMBER NEG. 
1¢: CLR RO ::ZERO THE CONSTANTS INDEX 
MOV ASDBLK,R3 7;SETUP THE OUTPUT POINTER 
MOVB @«#' .(R%3)¢ 72SET THE FIRST CHARACTER TO A BLANK 
23: CLR i ;27CLEAR THE BCD NUMBER 
MOV S$DTBL (RO) RI ;:GET THE CONSTANT 
3$: SUB R1,R5 :7FORM THIS BCD DIGIT 
BLT 4$ ::BR IF DONE 
INC Re 77 INCREASE THE BCD DIGIT BY 1 
4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 
1ST R2 ::CHECK IF BCD DIGIT=0 
BNE 5$ ::FALL THROUGH IF 0 
TST6 (SP) ZZSTILL DOING LEADING O'S? 
BM] 28 IF YES 
S$: ASLB (SP) *: 
BCC 6$ ;7BR IF NO 
MO 1(SP) ,=1(R3) ::YES=-SET THE SIGN 
63: BIS #*0,R2 >:MAKE THE BCD DIGIT ASCII 
7$: BIS # LR2 :;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB = R2, (R3)+¢ ;7PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + 7: JUST INCREMENT ING 
CMP RO,#10 : CHECK THE TABLE INDEX 
BLT 2$ :7G0 DO THE NEXT DIGIT 
BGT 8$ se TO EXIT 
MOV R5,R2 ; GET THE LSD 
BR ::GO CHANGE TO ASCII. . 
8$: TSTB (SP) + :;WAS THE LSD THE FIRST NON-ZERO? 
BPL 9$ 33 IF NO | Pom 
MOVB =1(SP),-2(R3)  ::VES==SET THE SIGN FOR TYPING - 
9$: CLRB (R3) : SET THE TERMINATOR 
MOV (SP) +,R5 ::POP STACK INTO RS 
MOV (SP) +.R3 :;POP STACK INTO R% 
MOV (SP)+,R2 ;:POP STACK INTO R2 
MOV (SP) +,R1 ::POP STACK INTO R1 
MOV (SP)+_RO :;POP STACK INTO RO 
TYPE , $DALK ::NOW TYPE THE NUMRER 


CZ7DHN=D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 94 
C 7DHND .P11 27=DEC=-78 15:28 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
4081 012310 016666 000002 000004 MOV 2(SP),4(SP) ;;A4DJUST THE STACK 
4082 012316 012616 MOV (SP) +, (SP) 
4083 012320 RT] ; RETURN TO USER 
4084 012322 023420 $DTBL: 10000 
4085 012324 001750 1000. 
4086 012326 000144 100. 
4087 012330 000012 10. 
4088 012332 000004 $DBLK: .BLKW 4 
4089 -SBITL TYPE ROUTINE 
at ce MAAR RRA ERE REE RRR REE RERKE ERE EEETEER Kha | 
4092 > *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
4093 >*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
4094 :*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
4095 s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
pra. :*NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*"*® 
4098 >*CALL: d 
4099 3*1) USING A TRAP INSTRUCTION 
re aie TYPE -MESADR :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
"* 
4102 ;* TYPE 
4103 :* ME SADR 
4 
4106 012342 105767 166611 - $TYPE: TSTB STPFLG ::1S THERE A TERMINAL? 
4107 012346 100002 BPL 1$ 77BR IF YES 
4108 012350 HALT 7ZHALT HERE IF NO TERMINAL 
4109 012352 30 BR 3$ 7 LEAVE 
4110 012354 070046 _ 18: MOV RO,-(SP) 72 SAVE RO : 
4111 012356 017600 000002 a MOV a2 (SP) .RO 72GET ADDRESS OF *ASCIZ STRING 
4112 2362 122767 000001 166662 CMPB HAPTENV, SENV s2 ING IN APT MODE 
4113 012370 001011 BNE 72NO,GO CHECK FOR APT CONSOLE 
4114 012372 132767 000100 166653 BITB #APTSPOOL .SENVM :;;SPOOL MESSAGE TO APT 
4115 2400 001405 BEQ 62$ 72N0,.GO CHECK FOR CONSOLE 
4116 012402 010067 000004 MOV RO,61$ 3s SSAGE ADDRESS FOR APT 
4117 012406 004767 000220 JSR PC ,SATY3 :2SPOOL MESSAGE TO APT 
4118 012412 61$: -WORD 0 S2MESSAGE ADDRESS , 
4119 012414 132767 000040 166631 62$: BITB HAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
4120 012422 1003 BNE 72YES.SKIP TYPE OUT 
4121 012424 112046 2$: MOVB (RO)+,-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
4122 012426 001005 BNE 4$ ;7BR IF IT ISN'T THE TERMINATOR 
4123 012430 005726 TST (SP) + 32 1F TERMINATOR POP IT OFF THE STACK 
4124 012432 012600 60$: MOV (SP)+,RO : RESTORE RO 
4125 012434 062716 000002 3$: ADD #2, (SP) : ;ADJUST RETURN PC 
4126 012440 00000 RT] 7 RETURN 
4127 012442 122716 000011 4$: CMPB WHT, (SP). ;;BRANCH IF <HT> 
4128 012446 001430 - BEQ 
4129 012450 122716 000200 CMPB ACRLF,(SP) > BRANCH IF NOT <CRLF> 
4130 012454 001 BNE 5$ 
4131 012456 005726 TST (SP) + 37POP <CR><LF> EQUIV 
4132 012460 104401 TYPE 37 TYPE A CR AND LF 
4133 012462 001227 SCRLF = 
4134 012464 105067 000130 CLRB SCHARCNT ;;CLEAR CHARACTER COUNT ts 
4135 012470 000755 BR 2$ 2;GET NEXT CHARACTER 
4136 012472 004767 -5$: JSR PC ,$TYFEC :;GO TYPE THIS CHARACTER 


Cc 8 
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012620 


126726 
001350 


016746 > 


105366 
002770 
004767 
105367 
000770 


112716 
004767 


112767 
112767 


000403 
1142767 


166454 
166444 
000001 


000032 
000072 


166370 


000002 
000015 


000014 
000012 


000007 
000001 


000001 


000206 
000001 
000100 


000002 
166312 
166320 


166310 


000052 


166362 
000002 


000002 


000236 
000226 


000220 


166362 
166353 


000004 
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TYPE ROUTINE 


6$: 


7$: 


sHORIZONTAL TAB 


8$: 
9$: 


$TYPEC: 


1$: 


B 
SCHARCNT : . WORD 


STYPEX: RTS 
-SBTTL APT COMMUNICATIONS ROUTINE 


EAE AEKERERAAAERREAEEEEEREREREERREAKEREEAEKREREEEKRRERKERKEKEK 


1$: 


2$: 


MOVB 
MOVB 


BR 
MOVB 


SFILLC,(SP)+ 
2$ 
$NULL ,- (SP) 
1(SP) 

6$ 

PC ,$TYPEC 
$SCHARCNT 

7$ 
PROCESSOR 
#* (SP) 

PC ,$TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 

2$ 

a$TPS 
STYPEC 


2(SP) ,aSTPB 
ete? 


#1, SFFLG 
#i, -SMFLG 


SAT 

#1. SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5$ 
ee 
#APTSPOOL , SENVM 
94(SP) ,RO 
#2,4(SP) 
$MSGTYPE 


7 
RO SMSGAD 
(RO) + 


5$ 
SMSGAD ,RO 
RO 


SEQ 0094 


T # OF FILLER “CHARS. "NEEDED 
® TAND THE NULL CHAR 
*¢DOES A NULL NEED TO BE TYPED? 
sBR IF NO=-GO POP THE NULL OFF OF STACK 
::G0 TYPE A NULL 
i COUNT AS A COUNT 


; REPLACE TAB WITH SPACE 
2s TYPE A SPACE 
+ «BRANCH IF NOT AT 
STOP 


:;POP SPACE OFF STACK 
;>;GET NEXT CHARACTER 
;:WAIT UNTIL PRINTER IS READY 


;sLOAD CHAR TO BE TYPED INTO DATA REG. 
eT Spars A CARRIAGE RETURN? 


H IF NO 
: SYES--CLEAR CHARACTER COUNT 


2318 ge hos A LINE FEED? 
>; « COUNT THE CHARACTER 
- 2 CHARACTER COUNT STORAGE 


::TQ REPORT FATAL ERROR 
7310 TYPE A MESSAGE 


:¢TO ONLY REPORT FATAL ERROR 


: ¢PUSH RO ON eae 
PUSH R1_ON STACK 
3 3 SHOULD TYPE i MESSAGE? 
;IF NOT: BR 
; ;OPERAT ING UNDER APT? 
NOT: BR 


; SHOULD SPOOL MESSAGES? 
:IF NOT: BR 
GET MESSAGE ag 


> BUMP RETURN ADDR. 
i3SEE TF BONE w/ LAST XMISSION? 
::PUT ADDR IN MAILBOX 

FIND END OF MESSAGE 


::SUB START OF MESSAGE 
:2GET MESSAGE LNGTH IN WORDS 


APT COMMUNICATIONS ROUTINE 


RO, $MSGLGT 
alia 


a4 (SP) .4$ 
#2,4(SP) 
177776, ~(SP) 
PC. $TYPE 


$FFLG 
12$ 

SENV 

12$ 
$SMSGTYPE 
11$ 


@4 (SP) , SFATAL 
#2, 4(SP) 
$MSGTYPE 
SFFLG 
SLFLG 
SMFLG 
(SP)+,R1 
(SP)+,RO 
PC 

0 

0 

0 


TTY INPUT ROUTINE 


g RERKEREKEAERERER ERE REE ERREAEERERER ERE EEREERERERRERE ERE REE 


;sPUT LENGTH IN MAILBOX 
;sTELL APT TO TAKE MSG. 


:;PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 
: PUSH 155776 On TACK 


scCALL TYPE MACRO 


: ¢ SHOULD REPORT FATAL ERROR? 
NOT: BR 


: RUNNING = APT? 
+ ¢F INISHED LAST MESSAGE? 
NOT: WAIT 


re a 
GET ERROR 4 
RETURN ADDR. 


; BUMP 
32 TELL abi TO TAKE ERROR 
::CLEAR FATAL FLAG 
:sCLEAR LOG FLAG 
:sCLEAR MESSAGE FLAG 
:sPOP STACK INTO R1 
:zPOP STACK INTO RO 
; sRETURN 


>ZMESSG. FLAG 
=:LOG FLAG 
> :FATAL FLAG 


go MERAKEEKEERKKEEEKREEAEREEREEEEEEEAEEKEERAEKRERKEREREREEERREEREEEEEEEREE 


* *SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 


FROM THE 


TRAP 


HANDLER, WILL 
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
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CZDHND .P11 27-DEC-78 15:28 
012740 010067 166304 MOV 
012744 012767 000004 166260 MOV 
012752 000413 BR 
012754 017667 000004 000016 3$: MOV 
012762 062766 000002 000004 ADD 
012770 016746 165002 MOV 
012774 004767 177342 JSR 
013000 4$: WORD 
013002 S$: 
013002 105767 000062 10$: TSTB 
13006 001416 BEQ 
013010 005767 166236 TST 
013014 001413 BEQ 
013016 005767 166210 11$: TST 
013022 001375 BNE 
013024 017667 000004 166202 MOV 
3032 2766 000002 000004 ADD 
013040 005267 166166 INC 
013044 105067 000020 12%: CLRB 
013050 105067 000013 CLRB 
013054 105067 CLRB 
13060 012601 MOV 
013062 012600 MOV 
013064 000207 RTS 
013066 SMFLG: .BYTE 
013067 $LFLG: .BYTE 
013070 0Cc0 SFFLG: .BYTE 
013072 .EVEN 
000200 APTSIZE=200 
0 APTENV=001 
000100 APTSPOOL=100 
0 APTCSUP=040 
.SBTTL 
* ENABL LSB 
;*ROUTINE IS ENTERED 
013072 022767 000176 166040 $CKS 
013100 001074 
013102 105777 166036 TSTB 
013106 100071 BPL 
013110 117746 166032 MOVB 
013114 042716 177600 BIC 
013120 022726 CMP 
013124 1062 BNE 
013126 126727 166002 000001 CMPB 
13134 001456 BEQ 
013136 104401 013745 TYPE 
013142 104401 013752 $GTSWR: TYPE 
073146 016746 165024 MOV 


ai baa > dale IN TTY FLAG MODE. 
CMP ASWREG, SWR 


* 


5 
asTks 
15$ 
@$1KB,-(SP) 
#°C 177, (SP) 
#7 (SP5+ 
S$ 


1 

$AUTOB 41 
15$ 

,SCNTLG 

, SMSWR 
SWREG,=(SP) 


e215 THE SOF T-SWR SELECTED? 
CH IF NO 


; = CHAR THERE ? 
:IF NO, DON'T WAIT AROUND 

77 SAVE THE CHAR 

;sSTRIP-OFF THE ASCII 

ade: IT A CONTROL G? 

RETURN TO USER 
ARE WE RUNNING IN AUTO-MODE? 

‘BRANCH i YES 


ECHO THE CONTROL-G (*G) 
7¢TYPE CURRENT CONTENTS 
::SAVE SWREG FOR TYPEOUT 


SFQ 0095 


CZD 
C 


NIN 
32 


HND .P11 


NN NOOAUWN 
On SFRS kN 


ee goeeso 


WA WWW 


013252 


DHN=D MACY11 30A(1052) 
27=DEC-78 


104402 


117746 
042716 


021627 


27~DEC-78 
15:28 


013763 
165754 


16575V 
177600 


0UV025 


013740 
000006 


000015 
000004 
000002 
000006 
001227 
165655 
000100 


177254 
000060 


000067 


000060 
000002 


000002 
177776 


001226 


165674 


000001 
165652 


15:31 
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TTY INPUT ROUTINE 


19$: 


7$: 


S$: 


20$: 


10$: 


17$: 


18$: 


BR 
TYPE 


BR 
-DSABL LSB 


a$TKB,-(SP) 
#°C177. (SP) 


(SP) ,425 
10$ 
. SCNTLU 


#6,SP 
19$ 


(SP) ,415 
16$ 

4(SP> 

11$ 

2(SP) ,aSWR 
#6,SP 


4 


, SCRLF 
SINTAG #1 
15$ 

#100, a$TKS 


PC ,STYPEC 
— 


8$ 
(SP) , #67 
18$ 
“ig eas 


2{SP) 
~2(SP), (SP) 
7$ 

, SQUES 

20$ 


3GO TYPE=-OCTAL ASCIICALL DIGITS) 
: PROMPT FOR NEW SWR 
;CLEAR COUNTER 
: > THE NEW SWR 
77 CHAR THERE? 
77 1F NOT TRY AGAIN 


3;zPICK UP CHAR 
MAKE IT 7-BIT ASCII 


7218S IT A CONTROL-U? 

3 BRANCH IF NOT 

32YES, ECHO CONTROL-U (*vU) 
32 IGNORE PREVIOUS INPUT 
szLET'S TRY IT AGAIN 


31S IT A <CR>? 
3;BRANCH IF NO 
:zYES, IS IT THE FIRST CHAR? 
: BRANCH IF YES 


; <LF> 
: sRE~ENABLE er KBD INTERRUPTS? 
: RE-ENABLE TTY KBD INTERRUPTS 


7 :BRANCH IF YES 


> BRANCH IF YES 
::STRIP-OFF ASCII 
:¢1S THIS THE FIRST CHAR 


ee CH H IF YES 
:zNO, SHIFT PRESENT 
33 CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 
::KEEP COUNT OF CHAR 
ieee IN NEW CHAR 
T THE NEXT ONE 
TYPE ?<CR><LF> 
3¢SIMULATE CONTROL-U 


FEE KEE RERERERERREREEREEERED KERR 


“RTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


>*CALL: 


© 
** 
e 
"* 
’ 
** 
a 
e 


RETURN HERE 


:: INPUT A SINGLE CHARACTER FROM THE TTY 
; CHARACTER IS ON THE STACK 
;:WITH PARITY BIT STRIPPED OFF 


SEQ C096 
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HND .P 11 27=DEC-78 15:28 TTY INPUT ROUTINE SEQ 0097 
4305 
4306 013354 011646 $RDCHR: MOV (SP) ,-(SP) : PUSH DOWN THE PC 
4307 013356 016666 000004 009002 MUV 4(SP),2(SP) ::SAVE THE PS 
4308 013364 105777 165554 1$: TSTB ~—s_ aSTKS :;WAIT FOR 
4309 013370 100375 BPL 1$ “A CHARACTER 
4310 013372 117766 165550 000004 MOVB  a$TKB,4(SP) *:READ THE TTY 
4311 013400 042766 177600 000004 BIC #*C<177>,4(SP) =:GET RID OF JUNK IF ANY 
4312 013406 026627 000004 000023 CMP 4(SP) #23 ::1S IT A CONTROL-S? 
4315 013414 001013 BNE 3$ : ;BRANCH IF NO 
4314 013416 105777 165522 2$: TSTB = ASTKS ::WAIT FOR A CHARACTER 
4315 013422 100375 BPL 2$ 3;LOOP UNTIL ITS THERE 
4316 013424 1177466 165516 MOVB  a$TKB,~-(SP) ::GET CHARACTER 
4317 013430 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
4318 013434 022627 000021 CMP (SP)+,421 ::1S IT A CONTROL-Q? 
4319 013440 001366 BNE 2$ ::1F NOT DISCARD IT 
4320 013442 000750 BR 1$ ::YES. RESUME 
4321 013444 026627 000004 000140 33: CMP 4(SP) 4140 :I1S IT UPPER CASE? 
4322 013452 002407 BLT 4$ : :BRANCH IF YES 
4323 013454 026627 000004 000175 CMP 4 (SP) 4175 *:IS IT A SPECIAL CHAR? 
4324 013462 003003 BGT 4$ > BRANCH IF YES 
4325 013464 042766 000040 000004 BIC #640,4(SP) ::MAKE IT UPPER CASE 
4326 013472 000002 4$: RTI ::GO BACK TO USER 
4327 a og TERA RKC ER EKEKEREKREKKKEKKEREKEKKKKKKKKKKKKKKKKKkkhEKE 
4328 >*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4329 >*CALL: 
4330 * RDLIN 72 INPUT A STRING FROM THE TTY 
4331 :* RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
cere ;* 7: TERMINATOR WILL BE A BYTE OF ALL O'S 
4334 013474 010346 SRDLIN: MOV R3.-(SP) SAVE R3 
4335 013476 005046 CLR ~(SP) {CLEAR THE RUBOUT KEY 
4336 913500 012703 013730 1$: MOV ASTTYIN,R3 :GET ADDRESS 
4337 013504 022703 013740 2$: CMP #STTYINGS. .R3 : BUFFER FUEL? 
4238 013510 101456 BLOS 4$ ::BR IF YES 
4339 013512 104410 RDCHR 3GO READ ONE CHARACTER FROM THE TTY 
4340 013514 112613 MOVB (SP)+, (R3) ::GET CHARACTER 
4341 013518 122713 000177 10$: CMPB =—s-s« #177, (R3) :IS IT A RUBOUT 
4342 013522 001022 BNE 5$ ::BR IF NO 
4343 013524 005716 TST (SP) siie THIS THE FIRST RUBOUT? 
4344 013526 001007 BNE 6$ :BR IF NO 
4345 013530 112767 000134 000170 MOVB=s #"\. 9% >: TYPE A BACK SLASH 
4346 013536 104401 013726 TYPE : 
4347 013542 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
4348 013546 005303 6$: DEC R3 :BACKUP BY ONE 
4349 013550 020327 013730 CMP R3,ASTTYIN >:STACK EMPTY? 
4350 013554 103434 BLO 4$ ::BR IF YES 
4351 013556 111367 000144 MOVB (R3) 9% ;:SETUP TO TYPEQUT THE DELETED CHAR. 
4352 013562 104401 013726 TYPE 9$ :GO TYPE 
4353 013566 000746 BR 2$ >:GO READ ANOTHER CHAR. 
4354 013570 005716 S$: TST (SP) ; ;RUBOUT KEY SET? 
4355 913572 001406 BEO 7$ ::BR IF NO 
4356 013574 112767 000134 000124 MOVB #'\,9$ ::TYPE A BACK SLASH 
4257 013602 104401 013726 TYPE 9S 
4358 013606 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
4359 013610 122713 000025 7$: CMPB ss #25, (R32) 23IS CHARACTER A CTRL u? 
4360 013614 001003 BNE 8$ ::BR 1F NO 
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SEC 0098 


CZDHND.P11 =. 27=DEC-78 15:28 TTY INPUT ROUTINE 
4361 013616 104401 013740 TYPE —, $CNTLU i:TYPE A CONTROL "U" 
4362 013622 726 BR i$ :GO START OVER 
4363 013624 122713 000022 8$: CMPB #22, (R3) [1S CHARACTER A ‘'*R'? 
4364 013630 001011 BNE 3$ BRANCH IF NO 
4365 013632 105013 CLRB (3) CLEAR THE CHARACTER 
4366 013634 104401 001227 TYFE § ,$CRLF STYPE A "CR & "LE 
4367 013640 104401 013730 TYPE  “$TTYIN SITYPE THE INPUT STRING 
4368 013644 000717 BR $ :G0 PICKUP, ANOTHER CHACTER 
4369 013646 104401 001226 4$: TYPE  , $QUES SITYPE A 
4370 013652 000712 BR i$ i: CLEAR THE BUFFER AND LOOP 
4371 013654 111367 000046 3$: MOVB = (R3) ,9$ =ECHO THE CHARACTER 
4372 013660 104401 013726 TYPE 9% 
4373 013664 122723 000015 CMPB #15, (R3)+ ;CHECK FOR RETURN 
4374 013670 001305 BNE 2$ LOOP IF NOT RETURN 
4375 013672 105063 177777 CLRB) = -1(R3) CLEAR RETURN (THE 15) 
4376 013676 104401 001230 TYPE =, SLF TYPE A LINE FEED 
4377 013702 005726 TST (SP) + LEAN RUBOUT KEY FROM THE STACK 
4378 013704 012603 MOV (SP)+,R3 S CRESTORE R3 
4379 013706 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
4380 013710 016666 000004 000002 MOV 4(SP) ,2(SP) :: FIRST ASCII CHARACTER ON IT 
4381 013716 012766 013730 000004 MOV #STTYIN, 4 (SP) 
4382 013724 2 RTI : ;RETURN 
4383 013726 000 9S: .BYTE 0 ;:STORAGE FOR ASCII CHAR. TO TYPE 
4384 013727 - ON "BYTE 0 TERMINATOR 
4385 013730 0000iU STTYIN: :BLKB 8. ;7RESERVE 8 BYTES FOR TTY INPUT 
4386 013740 052536 005015 000 $CNTLU: -ASCIZ /*U/<15><12> = :CONTROL ‘UT’ 
4387 013745 136 006507 000012 $CNILG: _ASCIZ /*G/<15><12> / CONTROL — 
4388 013752 005015 053523 020122 $MSWR: [ASCIZ <15><12>/SWR = 
4389 013760 020075 000 
4390 013763 040 047040 053505 $MNEW: .ASCIZ / NEW = 
4391 013770 036440 000040 
4392 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
4394 FERRARA RAEREEAEREKEERERAERERERARERAEARAEAAEEAERARERREREREERRER 
4395 SSTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
4.396 :>*CHANGE IT TO BINARY. 
4397 :*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
4398 :*OCTAL DIGITS. IF AN ILLEGAL CHARACTER'IS READ A ‘'?"' WILL BE TYPED 
4399 :*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
4400 *THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
** 
4402 :* RDOCT ;;READ AN OCTAL NUMBER 
4403 is RETURN HERE ;:LOW ORDER BITS ARE ON TOP OF THE STACK 
“0h zs :SHIGH ORDER BITS ARE IN $HIOCT 
4406 013774 011646 $RDOCT: MOV (SP) ,-(SP) ;;PROVIDE SPACE FOR THE 
4407 013776 016666 000004 000002 MOV 4(SP) ,2(SP) NPUT NUMBER 
4408 014004 010046 MOV RO,~-(SP) ::PUSH RO ON STACK 
4409 014006 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
4410 014010 010246 MOV R2,~-(SP) PUSH R2 ON STACK 
4411 014012 104411 1$: RDLIN : SREAD AN ASCIZ LINE 
4412 014014 012600 MOV (SP) +,RO T ADDRESS OF IST CHARACTER 
4413 014016 010067 000100 MOV 0,58 ::AND SAVE IT 
4414 014022 005001 CLR SICLEAR DATA WORD 
4415 014024 005002 CLR Re 
4416 014026 112066 2$: MOVB (RO) +, =(SP) ;;PICKUP THIS CHARACTER 
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4417 014030 001420 BEQ 3$ ::1F ZERO GET OUT 

4418 014032 122716 000060 (MPR ss #''0, (SP) : MAKE SURE THIS CHARACTER 

4479 014036 003026 BGT 4$ :1S AN OCTAL DIGIT 

4420 014040 122716 000067 CMPB ss #''7,, (SP) 

4421 014044 002423 BLT 4$ 

4422 014046 006301 ASL R1 ; :2*2 

4423 014050 00610 ROL R2 

4424 014052 006301 ASL R1 ri 

4425 014054 006102 ROL R2 : 

4426 014056 006301 ASL R1 12*8 

4427 014060 00610 ROL R2 

4428 014062 042716 177770 BIC #*C7, (SP) ::STRIP THE ASCII JUNK 

4429 014066 062601 ADD (SP)+_R1 :7ADD_IN THIS DIGIT 

4430 014070 000756 BR 2$ OOP 

4431 014072 005726 3$: TST (SP) + =: CLEAN TERMINATOR FROM STACK 

4432 014074 010166 000012 MOV R1,12(SP) ::SAVE THE RESULT 

4433 014100 010267 000026 MOV R2,$HIOCT 

4434 014104 012602 MOV (SP) +,R2 ::POP STACK INIG R2 

4435 014106 012601 MOV (SP) “RI ::POP STACK INTO R1 

4436 014110 012600 MOV (SP)+.RO ::POP STACK INTO RO 

4437 014112 RT] 7 RETURN 

4438 014114 005726 4$: TST (SP) + 7ZCLEAN PARTIAL FROM STACK 

4439 014116 105010 CLRB ~—- (RO) ::SET A TERMINATOR 

4440 0141206 104401 TYPE ::TYPE UP THRU THE BAD CHAR. 

4441 014122 5s: .WORD 0 

4442 014124 104401 001226 TYFE ~SQUES gah Opts Perens @ oy gee 

4443 014130 000730 i$ 7 TRY AGAIN 

4444 014132 000000 $HIOCT: .WORD 0 HIGH ORDER BITS GO HERE 

aahs .SBTTL READ A DECIMAL NUMBER FROM THE T 

4447 EERE AEEAEAAERARERERAREAEAERERERE RAE RERREREREKERERERREREREKKEREKEREE 

4448 STHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 

4449 ;*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 

4450 >*ARE READ A ‘"?'’ FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 

4451 :*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 

4452 ;*USER TYPING A CARRIAGE RETURN. RANGE OF THE INPUT NUMBER IS 

4453 : sPOSITIVE 32767 TO NEGATIVE 32768. 

4455 : RDDEC :;READ A DECIMAL NUMBER 

4656 :* RETURN HERE ; NUMBER IS ON TOP OF THE STACK 

4458 

4459 014134 071646 SRDDEC: MOV (SP) ,=(SP) ::PROVIDE SPACE FOR 

4460 014136 016666 006004 000002 MOV 4(SP)2(SP) i INPUT NUMBER 

4461 014144 010046 MOV RO, ~(5P) ::PUSH RO ON STACK 

4462 014146 010146 MOV R1,~(SP) 23 R1 ON STACK 

4463 014150 010246 MOV R2.-(SP) ::PUSH R2 ON STACK 

4464 014152 104411 1$: RDLIN :;READ AN ASCIZ LINE 

4465 014154 012600 MOV (SP)+,RO DRESS OF 1ST 

4466 014156 010067 000120 MOV RO,6$ >:SAVE INCASE OF BAD INPUT 

4467 014162 005046 CLR ~(SP) :3CLEAR DATA WORD 

4468 014164 005002 CLR R2 SIGN SET POSITIVE 

4469 014166 127710 00U055 CMPB Ss "=, (RO) >:SEE IF A MINUS SIGN WAS TYPED 

4470 014172 001001 BNE $ ;:BR IF NO MINUS SIGN 

4471 014174 112002 MOVE (RO) +, R2 i: SAVE FOR LATER USE 

4472 014176 112001 2$: MOVB — (RO) +,R1 >;PICKUP THIS CHARACTER 
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014272 
014274 


0 
014310 


014312 


bE 


27-DEC-78 


000060 
000071 
170000 


000060 


000012 


001226 


000U02 


014346 


000004 000002 
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i:GET OUT IF ZERO 
SURE THIS CHARACTER 
DIGIT BETWEEN 0 & 9 


;sDON'T LET NUMBER GET TO BIG 
;;BR IF NUMBER WOULD OVERFLOW 
*** 

;;SAVE FOR LATER 


*** 
ee 


33%. 


READ A DECIMAL NUMBER FROM THE TTY 
BEQ 3$ 
CMPB #'0,R1 
BGT 5$ 
CMPB #'9,R1 
BLT S 
BIT #°C7777, (SP) 
BNE 5$ 
ASL (SP) 
MOV (SP) ,~( SP) 
ASL (SP) 
ASL (SP) 
ADD (SP)+, (SP) 
BVS 


3$: 


4$: 


5$: 


6$: 


. SBTTL 


BVS 

BR 2$ 
TST R2 
BEQ 4$ 
NEG C 


SP) 
MOV (SP)+,12(SP) 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP) +,RO 


RTI 

TST (SP) + 
CLRB (RO) 
TYPE 

-WORD 0Q 

TYPE ,SQUES 


BR 1$ 
TRAP DECODER 


33*10. 

7 OVERFLOW ISN'T ALLOWED 
:Z:STRIP AWAY THE ASCII JUNK 
;zADD IN THIS DIGIT 

Ate: ieee ISN'T ALLOWED 


Star ce > ie NUMBER IS NEG 


:YE S--NEGATE THE NUMBER 
23 SAVE THE RESULT 
POP STACK INTO R2 
>;POP STACK INTO R1 
> «POP STACK INTO RO 
URN 


::CLEAN PARTIAL NUMBER FROM STACK 
> SET A TERMINATOR 

;:TYPE THE INPUT UP TO BAD CHAR. 

: :POINTER, GOES HERE 


>: TRY AGAIN 


FERRARA RARAAEEEEEEERKAEEKEKAAERERERREEEEREERRERAREREREEER 


SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 


;*AND USE IT TO INDEX THROUGH THE 


TRAP TABLE FOR ‘THE STARTING ADDRESS 


;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WItt 
:*GO TO THAT ROUTINE. 


STRAP: 


MOV RO,-(SP) 


Vv 2(SP) ,RO 
TST ~(RQ) 
MOVB (RO) ,RO 
ASL RO 
MOV $STRPAD (RO) .RO 
RTS RO 


SAVE RO 
IGET TRAP ADDRESS 


3 BACKUP BY 
3 GET RIGHT BYTE OF TRAP 


sPOSITION FOR INDEXING 
7: INDEX TO TABLE 
::GO TO ROUTINE 


7sTHIS IS USE TO HANDLE THE ''GETPRI'' MACRO 


$TRAP2: 


- SBITL 


FOV (SP) .~ (SP) 
avi 4(SP) ,2(SP) 


TRAP TABLE 


; MOVE THE PC DOWN 
7zMOVE THE PSW DOWN 
> ;RESTORE THE PSw 


SEQ 0100 
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014374 


014376 


014446 


014450 


01 
014532 


014134 


012737 
012737 
010046 


014550 
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014542 
000340 


164506 
000110 
014450 


014542 
000064 
000060 
000054 


164440 


014376 
000340 


000024 
000026 


000024 


000024 


900024 
000076 
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TABLE 


s*THIS TABLE CONTAINS THE ale ite ADDRESSES OF 
> *BY THE ‘‘TRAP"' 


$RDDEC 
.SBITL POWER DOWN AND UP ROUTINES 


ROUTINE 


$TRPAD: . 
$ 


SGTSWR 


INSTRUCTION 


$TRAP2 
>¢CALL=TYPE 
:-CALL=TYPOC 
2 ¢CALL=TYPOS 
:-CALL=TYPON 
;-CALL=TYPDS 


: ¢CALL=GTSWR 


: eCALL=CKSWR 
> sCALL=RDCHR 
> sCALL=RDLIN 
: + CALL=RDOCT 

: CALL=RDDEC 


TRAP+1 (104401) 
TRAP +2(104402) 
TRAP+3( 104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TRAP +6 (104406) 
TRAP+7 (104407) 


TRAP+10(104410) 
TRAP+11 


SEQ 0101 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZER0S) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SwWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 
READ A DECIMAL NUMBER FROM TTY 


og KAKA AKEEEEKERKERKKKKEKEKREKKKKKEKKKEAAEKKKEKKKKKEE 


sPOWER DOWN ROUTINE 


SPWRDN: MOV #SILLUP, @#PWRVEC ‘ian FOR FAST UP 
MOV #340, Q4PWRVEC+2 :=PRIO:7 
MOV RO,-(SP) BUSH RO ON STACK 
MOV R1,-(SP) = :PUSH R1 ON STACK 
MOV R2,-(SP) 2: R2 ON STACK 
MOV R3.-(SP) ° R3 ON STACK 
MOV R4.~(SP) >:PUSH R4 ON STACK 
MOV R5,-(SP) ;7PUSH R5 ON STACK 
MOV aSWR,-(SP) ;7PUSH @SWR ON STACK 
MOV SP, SSAVR6 >:SAVE SP 
MOV #SPWRUP ,aAPWRVEC ::SET UP VECTOR 
BR 2 ZHANG UP 
FREER AEAAEEERKREEEEERAEERAEKREREEREREKRERREEKAAEAEERERERERERER 
“POWER UP ROUTINE 
$PWRUP: MOV WSILLUP QMPWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, SP ::GET SP 
CLR SSAVR WALT LOOP FOR THE TTY 
1$: INC SSAVR6 WAIT FOR THE INC 
BNE 1$ ::0F WORD 
MOV (SP) +, aSWR ::POP STACK INTO aSwR 
MOV (SP)+.R ::POP STACK INTO R5 
MOV (SP) +,R4 ::POP STACK INTO R4 
MOV (SP) +_R3 7:POP STACK INTO R3 
MOV (SP)+,R2 ::POP STACK INTO R2 
“MOV (SP)+.R1 ;3POP STACK INTO R} 
MOV (SP)+-RO :POP STACK INTO RO 
MOV #SPWRDN, AAPWRVEC ::SET UP THE POWER DOWN VECTOR 
MOV #340, AAPWRVEC+2 PRI 0:7 
TYPE :REPORT THE POWER FAILURE 
SOWRMG: .WORD  $POWER > ;POWER FAIL MESSAGE POINTER 
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014556 


27-DEC-78 15:28 POWER DOWN AND UP ROUTINES 


01271€ MOV (PC) +, (SP) 
014560 $PWRAD: .WORD CKRST1 
000002 RT] : 
000000 $ILLUP: HALT 

000776 BR 272 


000000 $SAVR6: 0 
005015 047520 042527 $POWER: .ASCIZ <15><12>''POQWER'’ 
000122 tan 


ssRESTART AT CKRST1 
;sRESTART ADDRESS 


+4 THE POWER UP SEQUENCE WAS STARTED 
oe ony Va THE POWER DOWN WAS COMPLETE 
;sPUT THE SP HERE 
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014560 


014614 


014640 
014644 
014650 


014654 
01 


014750 





012711 
004767 
012711 
156711 
005067 


105767 


012767 


27~DEC-78 


005554 
005560 
165612 
171266 
170062 
005524 
005530 


165552 


50 
032754 


005203 


005175 
000091 


013576 
004704 


000004 
000010 
000006 


004550 
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M 8 


CT RRR RK KAKMKK 


: COMMON DH11 SERVICE ROUTINES 


5 RRR EKER KKK REE KEE EEK KKKKhhhhhh 


; THESE ROUTINES DETERMINE RESTART nae he ‘et SYSTEM ERROR 
; (BUS ERROR,RSVD INSTR ERROR, OR POWER FAIL 


CKRST1: 


1$: 
2$: 


CKRSTe: 


1$: 
2$: 


TST 
BNE 


DPFLG ;IN PATTERNS TEST ? 
$ :BR IF YES 
_ 7 IN ra | ? 
RSTRTA G0 RESTART RELIABILITY TESTS 
EXPAT :GO TO PATTERNS TESTS 
ECHO :GO TO ECHO TESTS 
C=FLG : IN PATTERNS TEST ? 
$ :BR IF YES 
REI, iG :IN ECHO TEST ? 
2$ 7BR IF YES 
REST! :GO RESTART RELIABILITY TESTS 
EXPAT :GO TO PATTERNS TESTS 
ECHO :GO TO ECHO TESTS 


s THIS ROUTINE IS CALLED TO SET UP THE DH11 PARAMETERS PRIOR TO TEST 


DHSET1: 


MOV 


#B1T11.(R1) ZCLEAR THE DH11 UNDER TEST 

PC, CHPS2 :GO0 LOCK OUT INTRS 

#30100, (R1) ENABLE INTERRUPTS ON XMIT DONE 
:NON-EX MEM, DATA AVAIL. OR SILO OVFLW 

LINE, (R1) >SELECT THE LINE NO. 

RDONE :CLEAR SOFT DONE FLAG 

WRBUF .RBFPTR §:SET UP RCVR BUFFER POINTER 

#RBUF .RBFEND § >MARK END OF THIS BUFFER 

CHRCNT RS =GET CHAR COUNT 

R5 :MAKE IT POSITIVE 

R5 .RBFEND 


CURLPR,LPR(R1) ;LOAD THE LPR REG 
CHRCNT,BCR(R1) ;LOAD THE BYTE COUNT REG 
MTBUF ,CAR(R1) =; Stan URRENT ADDRESS REG 


sTHIS ROUTINE IS CALLED TO SELECT A NEW LINE NO. BASED ON THE 
:VALUE OF THE LINE SELECTION PARAMETER 


CALLING SEQUENCE: 


SELINE: 


7 JSR 
BR 


TSTB 
BNE 
COMB 
MOV 


PC ,SELINE oat THE ROUTINE 

1$ sEXIT agate a INE MOVES THE RETURN 
;PC AROUND THIS BR IF MORE LINES ARE 
YET TO BE TESTED 

| agile Hg NT THROUGH FOR ANY TEST ? 

LINE+1 7SET ENT LAG 

#1,L INMSK 7 INIT SELECT. TEST MASK TO TEST LINE 00 


SEQ 0103 
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o 


014756 
014762 
014764 
014770 


014776 
015002 


105067 
000410 
105267 
116767 


005162 


005154 
005150 


004524 
004516 
000002 


005116 
000017 


177770 
000060 


177779 
000060 


27-DEC~78 
28 


164240 


004512 


004460 
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CLRB ~—s—_ LINE :START WITH LINE #00 
BR 2$ ‘GO TEST FOR LINE #00 
1$: INCB ~—s LINE :GENERATE NEW LINE NO 
MOVB LINE, $TESTN ; MOVE CURRENT LINE # 
TO $TESTN SO APT WILL RUN 
ASL L.INMSK ; SHIFT SELECT MASK TO TEST NXT LINE 
BEQ 3$ sRETURN TO EXIT BRANCH - ALL LINES DONE 
2$: BIT LINMSK,LINSEL  :IS THE LINE SELECTED FOR TEST 77 
BEQ 1$ :BR 'F NOT 
ADD #2, (SP) “MOVE RETURN PC AROUND EXIT BRANCH 
4$ ;RETURN TO TEST SELECTED LINE 
3$: LR LINE : INIT ENTRY FLAG AND LINE NO. TO 000 
4$: BICB #17. @DHADR INIT LINE SELECT BITS IN ‘'SCR’’ 
RTS PC ;RETURN TO CALLING TEST 
; THIS ROUTINE IS CALLED TO CONVERT EITHER THE ‘'DH’’ NUMBER OR THE 
:"‘LINE'' NUMBER TO TWO ASCII CHARACTERS AND MOVE THEM INTO A 
:PARTICULAR MESSAGE BUFFER FOR ERROR REPORTING 
:CALLING SEQUENCE 
:JSR —-RS.. SUNUM :CALL TO THIS ROUTINE 
SADDR1 SADDRESS OF THE NUMBER TO BE CONVERTED 
“ADDR2 ZADDRESS OF THE MSG BUFFER SLOT 
SUNUM : 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1,-(SP) >:PUSH R1 ON STACK 
MOV R2,-(SP) 7:PUSH R2 ON STACK 
MOV (R5)+,RO :GET ADDRESS OF NUMBER 
MOV (R5)+,R1 :GET MSG BUFFER ADDR 
4 MOVB (RO) .RO :GET NO. TO BE CONVERTED 
MOV RO.R2 “SAVE IT IN R2 
ASR R2 zSHIFT MSD TO LSD POSITION 
ASR R2 
ASR R2 
BIC #177770,R2 CLR JUNK BITS 
ADD 60, ; IT ASCI! 
MOVB 2. (R1)+ :PUT IT IN MSG BUFFER 
BIC #177770.RO :CLR JUNK FROM 
ADD JR ; IT ASCII 
RO, (R1) :PUT LSD IN THE BUFFER 
MOV (SP)+,R2 ::POP STACK INTO R2 
MOV (SP)+.R1 = STACK INTO R1 
MOV (SP) + RO STACK INTO RO 
RTS sRETURN TO CALLER 


sTHIS ROUTINE IS CALLED TO SET UP THE ERROR INFORMATION IN THE 
;MESSAGE BUFFERS 


SUER2: MOV RO, $REGO ;STORE THE REGS IN CORE 
SUER1: MOV R1,$REG1 

MOV Re, $RES2 

MOV R3, SREG3 

MOV R4, SREGS 

RTS PC :RETURN TO REPORT ERROR 


Sy MATY11 30A(1052) - 
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~~ 2 SS 
PAF IP 
Dd ed ed at ad nd 
ALO S 


alLealelelelealele! a! a) 


~ 
NM 


015250 


015254 
015256 
015262 


012702 
012701 


052711 
052711 
052711 
032711 
001410 
052711 


052711 


010122 


020127 
012716 
000002 


012737 


021750 


160020 


001000 


163760 
000020 


015264 


27=DEC-78 
8 


000004 


000004 
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: THIS ROUTINE get THE Ag Me TO DETERMINE THE ADDRESSES AND 


“VECTORS OF THE DH11'S AND DM11-AR'S. 
AUTOSZ: MOV RO,-(SP) 
CLR R3 
MOV #DHADRS .R2 
258: CLR (Re) :CLEAR DH TABLES. 
N 
CMP R3,4102 :HAVE WE CLEARED ALL ENTRIES? 
BNE i “BRANCH IF 
MOV ars .-(SP) “SAVE TRAP VECTOR. 
MOV #4$. 044 = SETUP FOR NON-EXISTENT MEMORY TRAP. 
MOV #DMADRS ,R3 :SETUP DM ADDRESS TABLE POINTER. 
MOV #DHADRS _R2 :SET UP DH ADDRESS TABLE POINTER. 
MOV #160020,R1 ;R1=FIRST ADDRESS TO BE TESTED. 
1$ TS] (RV) ;SEE IF ADDRESS IN R1 RESPONDS. 
TST 16(R1) :CHECK TO SEE IF DEVICE IS MODULO 20. 
BIS #4000, (R1) off 7 1S: ONT INUE 
“AND CHECK TO SEE 
BIS #1000, (R1) “IF THIS ADDRESS CONTAINS 
BIS #2000. (R1) “A DH-11. 
BIT #3000. (R1) >CHECK TO INSURE THESE BITS SET. 
BEQ 3g -IF NOT, CH 
7SET THE MAINTENANCE BIT. THE NON- 
BIS #400, (R1) ;EXISTENT MEMORY BIT AND THE CLEAR 
:NON~EXISTENT MEMORY INTERRUPT BIT. 
BIT #2400, (R1) 71S THIS A DH-11? (BITS 8 AND 10 SHOULD 
:CLEAR IF THIS IS A DH11.) 
BNE 3$ ;1F NOT, CHECK TO SEE IF THIS IS A DM11-88. 
BIC #1000, (R1) =CLEAR MAINTENANCE BIT 
MOV R1,(R2)+ :SAVE THE ADDRESS IN THE DH ADR TABLE. 
3$: CMP R1,#163760 :HAVE WE REACHED THE TOP OF THE FLOATING ADDRESSES. 
BEQ 5$ “IF YES, GET 
ADD #20,R)1 7IF NOT. UPDATE " ADORESS AND 
BR 1$ :GO CHECK IT. 
4$: mov 43%, (SP) ;1F DH ADDRESS DOES NOT RESPOND. GO TO 3$. 
: TEST FOR DM11 BR ADDRESS 
S$: MOV #6$ 044 ; SETUP FOR NON-EXISTENT MEMORY TRAP. 
MOV #170500,R1 :R1I=FIRST ADDRESS TO BE TESTED. 
21$: TST (R1) :SEE IF ADDRESS RESPONDS. 
- MOV R1,(R3)+ :IF IT DOES, THIS IS A DM11-BB, | =: 
>SO SAVE THE ADDRESS. ——— 
238: CMP —.-_ R1_.#170670 “HAVE WE REACHED THE TOP OF THE-DMTT ADDRESSES? 
BEQ 22$ “IF YES. GE 
ADD W10,R1 st 3 UPDATE ADDRESS AND 
mn » “GO CHECK IT. 
tae 


CZDHN~D MACY11 font ie, 
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OOOO C0C000 oo 

~~ SG 
Ww LANA 

NO SSE. © 


34 
015440 
015444 
015446 
015452 
015454 
015460 


015462 
015464 


015506 


015546 


012716 
000002 


012637 
162702 
001003 


104401 
000000 


012705 


010423 


012724 
022324 
020427 


101771 


005712 
001441 


005067 
052772 
052772 


005000 


022626 


ie 78 
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015324 


000004 
021750 


025712 


004526 


021750 
006 


162504 
001000 
000300 


025741 
004000 
001000 


000007 


000622 
000020 


000000 
000000 


000000 
000000 
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63: MOY #23$, (SP) ;1F DM ADDRESS DOES NOT RESPOND, GO TO 23$. 
22$: MOY (SP) +, 044 :RESTORE TRAP VECTOR. 
SUB #DHADRS ,R2 :HAVE WE FOUND ANY DH11°S AT ALL? 
BNE 7$ - IF YES, BRANCH 
TYPE .MSG1 :NO DH11'°S WERE FOUND, 
HALT 
7$: ASR R2 :R2 NOW CONTAINS THE NUMBER 
CLR RO “OF DH'S FOUND. 
8$: ROL RO “FILL RO WITH 1° 
| INC RO : CORRE SPOND ING 10 
DEC R2 :THE NUMBER OF DH'S 
TST R2 > FOUND. 
BNE BS 
MOV RO, $DHSEL ;SDHSEL CONTAINS THE DH SELECTION PARAMETER. 
:1E. ALL DH'S FOUND WILL BE TESTED. 
FIND DH VECTOR: 
MOV #DHADRS ,R2 ;SETUP POINTER TO BEGINNING OF DH 
MOV #DHVEC.R5 :ADDRESS TABLE AND VECTOR TABLE. 
MOV #340, a#IOTVEC+2 :SET IOT TRAP PRIORITY TO 7. 
MOV #12$,a#IOTVEC  =SETUP IOT TRAP VECTOR. 
MOV #300.R3 ZSTART OF FLOATING VECTORS 
MOV #302.R4 :PC OF IOT INSTR. 
9$: MOV R4,(R3)+ :FILL VECTOR AREA WITH ADDRESS 
:OF NEXT INSTR (.+2) 
MOV #4, (RG)+ “NEXT INSTRUCTION IS AN IOT TRAP. 
CMP (R3)+, (R4)+ [UPDATE R34R 
CMP R4,#1000 THAVE WE REACHED TO TOP OF THE 
:VECTOR SPACE? 
BLOS 9$ :IF NOT, REPEAT PROCESS. 
10$: TST (R2) :HAVE WE CHECK ALL DH'S? 
BEQ 13$ ZIF YES, GET OUT + CHECK FOR DM11 BB'S VECTORS. 
CLR PS :ZERO CPU PRIORITY. 
BIS #1000,a(R2) :SET MAINTENANCE BIT 
BIS #300, a(R2) [ATTEMPT TO CAUSE RECEIVER 
: INTERRUPT. 
CLR RO 
11$: INC RO. :WAIT... 
TYPE MSG2 :ERROR MSG-NO DH RECEIVER INTERRUPT OCCURRED. 
BIS #2000, a(R2) :DO A MASTER CLEAR 
BIC #1000. a(R2) :CLEAR MAINTENANCE BIT 
BR 10$ 
12$: MOV (SP) .R1 
BIC #7,Ri1 :CLEAR GARBAGE. 
MOV R1,(R5)+ :SAVE VECTOR ADDRESS. 
CMP (SP) +, (SP) + *POP STACK 


SEQ 0106 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND ..P11 


015712 
015714 


015750 
015752 


012716 
052772 
042732 
000002 


012702 
012705 
012737 


000002 
012737 
012600 
012703 
012704 


010423 


012724 
022524 
020427 
101771 


013701 
005737 
001403 
163701 


27~DEC-78 15: 


015462 
004000 
7000 


022042 


162160 
001000 
000300 


026005 
004000 
001000 
000004 
015606 
004000 
001000 
011076 


000300 
0003C2 


000000 
001000 


022006 
022010 
022010 


0041 36 
000002 


000000 


000020 


000000 
000000 


0006000 
00:00 


090000 


000020 


163134 


31 
PO 


MOV 
BIS 
BIC 
RTI 


108 
WER DOWN AND UP ROUTINES 
#10$, (SP) 


#4000,a(R2) 
#1000.a(Ro) + 


:FIND DM11 BS VECTORS: 


13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


MOV 
MO 


#DMADRS ,R2 SET POINTERS TO BEGINNING OF 
#DMVEC RS “ADR TABLE & VECTOR 1 TABLE. 

#16$,QHIOTVEC  :SET IOT TRAP VECTOR. 

(R2). sHAVE WE CHECKED ALL DM'S? 

17$ :IF YES, GET OUT 

PS :ZERO CPU PRIORITY 

#1000, a(R2) =SET MAINTENANCE BIT 

#300,a(Re) sATTEMPT TO CAUSE INTERRUPT. 

nie ‘WAST... 

_MSG3 :ERROR MSG - NO DM11-BB INTERRUPT OCCURRED. 
#4000,a(R2) :CLEAR BITS PREVIOUSLY SET 

#1000,a (Re) “CLEAR MAINTENANCE BIT. 

(SP) .R1 

#4 Ri ZCALCULATE VECTOR ADDRESS. 

R1.(R5)+ :SAVE VECTOR ADDRESS. 

(SP)+, (SP) + ;POP STACK. 

#14$, (SP) >SETUP FOR RETURN. 

#4000, a(R2) >CLEAR BITS PREVIOUSLY SET. 


#1000 ,a(R2)+ 


@#IOTVEC 


#SSCOPE 

(SP)+,RO :RESTORE RO. 

#300,R3 :START OF FLOATING VECTORS. 

#302 ,R4 

R4, (R3)+ :FILL VECTOR AREA WITH ADDRESS OF NEXT 
: INSTRUCTION (.+ 

#0, (RG) + *NEXT INSTRUCTION IS A HALT. 

(R3)+, (R4)+ SUPDATE R3 & R4. 

R4,#1000 :AR 

18$ F NOT, REPEAT UNTIL ADDRESSES 
$57 TO 777 ARE 

AADHVEC.R1 :LET R1 POINT TO 1ST DH VECTOR ADDRESS. 

BADHVEC +2 THERE MORE THAN ONE ENT 


6 H IF 
SADHVEC+2,R1 “DETERMINE NUMBER 
:BETWEEN DH VECTORS (10(8) OR 20(8)). 


R1 MAKE IT POSITIVE. 

R1,ADRVEC :SAVE THAT NUMBER. 

#B1T1,aSWR ;SHOULD DEVICE MAP BE TYPED OUT? 
20$ :IF NOT, RETURN, 


sRESTORE IOT VECTOR FOR SCOPE ROUTINE. 


: SETUP FOR RETURN. 
O A MASTER CLEA 
:CLEAR MAINTENANCE BIT. 


R 


>CLEAR MAINTENANCE BIT AND 
:POINT TO NEXT DM11-88 ADDRESS. 


OF 


ADDRESSES 


SEQ 0107 


CZDHN~D MACY11 30A(1052) 
CZDHND .P11 27=DEC-78 15: 


016110 


016112 
016114 


016202 


104403 


021750 


022100 


026046 


026046 


001227 


000010 
000020 


000020 
004 166 
004174 


177777 
2 


003504 
004132 


27~DEC-78 
28 


003520 


13: z 
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19$: 


20$: 


> TELETY 


3$: 


4$: 


INPARX: 
INPARC: 


ADHADRS ,R1 
ADHVEC ,R2 
A#DMADRS ,R3 
ADMVEC,R4 
R5 
(R1)+,=(SP) 
; 
(R2)+,-(SP) 
5 

0 

. SPACE 
(R3)+,-(SP) 
6 

1 


SPACE 
(R4)+,-(SP) 


IS USED TO ACCEPT 


(SP) +,RO 
3 


#-1,VCFLG 
BEGINA 
#-1 ,RO 
VCFLG 


SEQ 0108 
Bg MAP OF DH & DM11-BB'S 


;R1=BEGINNING OF DH ADDRESS TABLE. 
:R2=BEGINNING OF DH VECTOR TABLE. 
;R3=BEGINNING OF DM11-BB ADDRESS TABLE. 
;R4=BEGINNING OF DM11-8B8 VECTOR TABLE. 
sCLEAR TABLE LINE COUNTER 


sMOVE DATA TO BE TYPED 
sTYPE DATA 


Z;MOVE DATA TO BE TYPED 
; TYPE DATA 


sMOVE DATA TO BE TYPED. 
> TYPE DATA. 


;MOVE DATA TO BE TYPED. 
7 TYPE DATA, 
: TYPE A CARRIAGE RETURN & LINE FEED. 


sHAVE WE TYPED ALL DH ENTRIES? 
:IF NOT, DO IT AGAIN. 


IF YES, GO BACK TO MAIN PROGRAM. 
INPUT PARAMETERS FROM THE CONSOLE 


;"‘ASK FOR NO. erase BETWEEN VECTORS" 
;READ OCTAL NO. FM TTY 
eet Pg NO. HE TYPED. 


F HE TYPED <CR> 
1008 + a ata BETWEEN VECTORS ? 
:20(8) — BETWEEN VECTORS ?? 


sASK ALL OVER AGAIN 

:SET UP CONSTANT FOR oat ADDRESSES 
:CLEAR PATTERNS TESTS F 

: INIT ECHO TEST RETURN. FLAG 

:RETURN TO CALLER 


SET START AT 200 FLAG 
O START UP 
;SET FLAG IN RO 


INIT VECTOR SET UP FLAG 
;CLEAR PATTERNS TESTS FLAG 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND .P11 


016206 
016212 


016216 


016250 


016252 
016256 


005067 
000167 


013701 


032777 


27=DEC-78 15:31 

004140 
163376 
021750 INPAR: 
000001 162710 

1$: 
000176 2$: 
022006 INPAR1: 
000001 162654 

1$: 
000306 2$: 
004040 INPARS: 
166420 
004014 1$: 
167606 
022136 2$: 
000001 162570 

4S: 
003132 3$: 
177777 003126 INPAR4: 
000001 162534 
0045100 
000400 162506 1$: 
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RETFLG 
BEGINA 


@ADHADRS ,R1 
oe 


(SP)+,R1 
INPAR1 
alata 


@ADH'EC ,R1 
, illaliiataii 


(SP)+,R1 
INPARS 
PC. CHKVCT 


RETFLG 

1$ 

ECHO2 
DPFLG 

2$ 

EXPAT2 
@FSDHSEL .R1 
RO. . 


4$ 
#B1TO.aSWR 
3$ 


(SP)+,R1 
INPARS 
R1,DHSEL | 
#=-1 ,L INSEL 
lat 


(SP)+,R1 
1$ 
R1,LINSEL 
#&1T8,aSWR 
EXPAR 


; INIT ECHO TEST RETURN FLAG 
;GO ASK FOR SELECT PARAMETER 


sMOVE ADDRESS OF FIRST DH INTO R1. 
;ARE ese hh TO BE INPUT MANUALLY? 
;BRANCH IF N 

ASK FOR DEVICE ADDRESS 


;READ IN WHAT IS TYPED 

:GET THE NO. HE TYPED 

:BR IF DEFAULT 

:GQ CHECK VALIDITY OF THE ADDR 
sERROR BRANCH 


sMOVE FIRST DH VECTOR INTO R1. 

;ARE PARAMETERS TO BE INPUT MANUALLY? 
:BRANCH IF NOT. 

ASK FOR VECTOR ADDRESS 


;READ IN WHAT HE TYPES 
GET THE ADDRESS 
IF DEFAULT 
:GO CHECK VALIDITY OF VECTOR 
sERROR BRANCH 
LINE go TESTS ? 
BR IF 


SRETURN T 25 LINE ECHO TESTS 
ya TESTS ACTIVE ?? 


:GO BACK TO PATTERNS TESTS 
MOVE gag Ft PARAMETER INTO R1. 


:BRANCH IF YES. 
AP Mat Tt her TG BE INPUT MANUALLY? 


: BRANC 
ASK FOR DEVICE SELECTION PARAMETER 


;READ_IN WHAT HE TYPES 
:GET a SELECT PARAMETER 
>BR DEF AULT 


7 SET uP DH11 SELECTION PARAMETER 

;INIT FOR ALL 16. L 

21S eran PARAMETER TO BE INPUT MANUALLY? 
TASK FOR LINE SELECT PARAMETER 


;READ WHAT HE TYPES 
:GET IT OFF STACK 


;BR_IF DEFAULT 
SET LINE SELECT - echlee 
:HALT AFTER ‘SET UP ? 


;BR_IF NOT 
TYPE CONTINUE MESSAGE PRIOR TO HALTING 
:DEPRESS CONTINUE TO RESUME TESTING 


SEQ 0109 


on ae) 
SN 


ND. 


016442 


016542 
016544 


016550 
016554 


016556 
016560 


DHN~D MACY11 30A(1052) 
DHND .P11 27=DEC-78 15:2 


000167 


020127 
001 


012703 


016704 
012322 


G 
27-DEC=78 15:31 PAGE 117 
8 POWER DOWN AND UP ROUTINES 
163640 EXPAR: JMP START2 
160020 CHKADR: CMP R1,4160020 
BGE 1$ 
BR 4$ 
160420 1$: CMP R1,4160420 
BLT 2$ 
BR $ 
000017 C$: BIT 4#17,R1 
BNE $ 
000002 ADD #2, (SP) 
003646 TST RETFLG 
BEQ 1$ 
003002 4g Sata 
003620 21$: TST DPFLG 
BEQ 2c$ 
002766 oo R7,DHALR 
021606 22$: MOV #DHADTB,R2 
000001 162376 BIT #B1ITO,aSWR 
BNE 3$ 
021750 MOV #DHADRS.R3 
0603362 MOV SDHSEL RS 
6$: MOV (R3)+,(R2)+ 
ASR R4 
TST R4 
BNE 6$ 
BR 5$ 
3$: MOV R1,(R2)+ 
000020 ADD #20,R1 
021646 CMP #DHADTB+40,R2 
BNE 33 
BR 5$ 
4$: TYPE. 
INMSG4 
5$: RTS PC 
000300 CHKVCT: CMP R1,4300 
BGE | 
BR 4$ 
001000 1$: CMP R1,41000 
BLT 2$ 
BR 4$ 
060007 2$: BIT #7,R1 
BNE 4$ 
000002 ADD #2, (SP) 
003502 TST RETFLG 
BEQ 21$ 
002640 MOV R1,DHVCT 
BR 5$ 
003454 21$: TST DPFLG 
BEQ 22$ 


:GO START UP THE PROGRAM 


ey ABOVE OR EQUAL TO LOW LIMIT 
WOT 
F YES THE HIGH LIMIT? 


NOT 
‘CORRECT BOUNDARY ? 
:BR IF NOT 


sMOVE RETURN PC vette aE RROR BRANCH 
ARE WE IN ECHO TESTS ? 


;BR IF NOT 

;SET UP DH11 DEVICE ADDRESS 

3; CONT INUE 

= PATTERNS TESTS ACTIVE ?7 

;BR IF NOT 

7SET UP DEVICE ADDRESS 

7 CONTINUE 

;:POINT TO BEGIN OF ADDR TABLE 
* ARE WE AUTOSIZING? 

;BRANCH IF NOT. 

;POINT TO BEGINNING OF AUTOSIZER 
;DH ADDRESS TABLE. 


ro Tt CONTENTS OF AUTOSIZER DH TABLE 
;TO THE TABLE USED BY PROGRAM. 


sHAVE WE agg ALL TABLE ores 
;BRANCH IF MORE TIME. 

; ENTRY 

;GENERATE NEXT DHT ADDR 
zEND OF TABLE ? 


:BR IF NOT 
>RETURN TO INPUT ROUTINES 
; TELL HIM HE GOOFED 


sRETURN TO INPUT ROUTINES 
at ABOVE OR EQUAL TO LOW LIMIT 


NOT 
T ; ae THE HIGH LIMIT? 


pe | 


F NOT 
Sy BOUNDARY ? 
F NOT 


VE RETURN PC AROUND ERROR BRANCH 
WE IN ECHO TESTS ? 


NOT 
:SET UP DH11 VECTOR ADDR 
; CONTINU 
:PATTERNS TESTS ACTIVE 2? 
:BR IF NOT 


Se De Pa Be Be Be Be Be Se 


— 


SEQ 0110 


a 


LE tn My MACY11 30A(1052) 
CZDHND .P 27-DEC-78 15: 


016710 
016714 


- 016720 


016722 


016752 


016754 


017012 
017016 


010167 
0 7 


012703 


016704 
012322 


002624 


021646 
000001 


022006 
003216 


021706 


162216 
0 
017004 


002406 
175572 
162154 
162136 

00 
017046 
002344 
175530 


002432 
000002 


000002 


162232 


162106 


162044 


SET UP DEVICE VECTOR 
T INUE 


“POINT TO BEGIN OF VECTOR TABLE 
sARE WE AUTOSIZING? 

sBRANCH IF NOT 

;POINT TO BEGINING OF AUTOSIZER 
:DH VECTOR TABLE. 


sMOVE CONTENTS OF AUTOSIZER VECTOR 
; TABLE TO TABLE USED BY PROGRAM. 


sHAVE WE MOVED ALL TABLE we 
BRANCH IF NOT--ONE MORE TIME. 
sRETURN TO INPUT ROUTINES. 
;SET UP A TABLE ENTRY 
; GENERATE i DHT ADDR 
sEND OF TABLE ? 

IF NO 


*BR T 
;RETURN TO INPUT ROUTINES 
:TELL HIM HE GOOFED 


sRETURN TO INPUT ROUTINES 


s THESE TWO ROUTINES SERVICE UNEXPECTED BUS ERROR AND RSVD INSTR TRAPS 


MOV R1,DHVCT 
BR 5$ 

Z MOV ADHVCTB,R2 
BiT ABITO,aSWR 
BNE 3$ 
MOV ADHVEC,R3 
MOV $DHSEL ,R4 

6$: MOV (R3)+,(R2)+ 
ASR R4 
TST R4 
BNE 6$ 
BR 5$ 

3$: MOV R1,(R2)+ 
ADD RO.R1 
CMP #DHVCTB+40,R2 
BNE 3$ 
BR 5$ 

4$: TYPE 
INMSG5 

5$: RTS PC 

BUSER: MOV SP, $REG6 
MOV (SP)+,$REG1 
MOV (SP) +, $REG2 
MOV ASTACK, SP 
MOV Hage SLPERR 
ERROR 14 

1$: RESET 
JSR PC,CHPS1 
JMP CKRST2 

RESERR: MOV SP, $REG6 
MOV (SP)4 ,$REG1 
MOV (SP)+,$REG2 
MOV #STACK, SP 
MOV #13, $LPERR 
ERROR 15 

1$: RESET 

; JSR PC,CHPS1 

JMP CKRST2 


sSAVE THE SP 
:GET THE TRAP PC 
;GET THE TRAP PSwW 


RESET THE STACK POINTER 


; PREPARE % eo 
:GO CLEAR P 
>G0 RESTART Trié PROGRAM 


= SAVE THE SP 


PSW 
“RESET THE STACK POINTER 
sALWAYS COME BACK TO 1$ 
> UNEXPECTED RSVD INSTR ERROR TRAP 
sPREPARE TO RESTART 
:GO CLEAR PSW 
>G0 RESTART THE PROGRAM 


THIS ROUTINE IS CALLED — A TEST NEEDS TO RESTORE THE TRAP 
CATCHER IN THE DH11 VECTOR 


RESTRP: MOV 


DHVCT R3 
3, (RS) 


:GET VECTOR ADDRESS 
sRESTORE THE TRAP CATCHER 


sRETURN TO CALLING TEST 


H 9 | 
27-DEC-78 15:31 PAGE 112 
28 POWER DOWN AND UP ROUTINES SEQ C171 


—*; 
: 
: 


CZDHN=D MACY11 30A(1052) 
27=DEC-78 15:28 


CZDHND .P11 


59098 
5099 


MVNA) 
db nd ond 
SS 


A tt 3 
DSRIFARAL 


MAA AA AANA AAU UU 
@M"ODODWNAUNLSWYH3oO 


ould 
™m 
wh 


017142 
017144 


017146 
017154 


017232 


022767 


005767 


27-DEC-78 


003222 
003212 
000002 


030150 
030460 


021570 


002410 
161750 


033500 
177777 
002314 
000002 
000002 


002276 


002416 
002404 


002370 
002322 


002346 


19:31 
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s THIS ROUTINE CALLED BY ANY TEST THAT NEEDS A TIMING WAIT LOOP 

> TIMEA’’ IS INITIALIZED BY THE CALLING ROUTINE TO THE MINIMUM REQUIRED 
;VALUE AND "‘TIMEB'' IS CLEARED TO O000CO. IF A TIME OUT OCCURS THIS 
sROUTINE WILL MOVE THE RETURN PC AROUND THE ‘'LOOP’’ BRANCH RACK IN 

>THE ROUTINE THAT CALLED IT TO ALLOW REPORTING AN ERROR MESSAGE 


TIMEIT: INC ‘TIMEB : COUNT B 

BNE 1$ ;BR IF NOT ZERO 

DEC TIMEA ;COUNT TIME A 

BNE 1$ :BR IF NO TIMEOUT 

ADD #2,<SP) sMOVE RETURN PC TG ALLOW ERROR REPORT 
1$: RTS PC sRETURN TO THE CALLING TEST 


>THIS ROUTINE IS CALLED TO CLEAR ALL ENTRIES IN THE STATISTICS TABLES 


CLSTAT: MOV #RTOTAL,RS :SET UP POINTER TO BEGINNING 
1$: CLR (R5)+ ;CLEAR ONE WORD 

CMP ARTOTAL+192.,R5 ; CLEARED ALL ENTRIES ?7? 

RTS Pe oo 


THIS ROUTINE IS CALLED TO RETRIEVE A NEW LPR CONSTANT 
>FROM THE LPR TABLE (LPRT4B) 


>CALLING SEQUENCE: 


: JSR RS,SETLPR 7 CALL 
. BR NEWLIN sEXIT BRANCH - EXECUTED AFTER ALL 
3:13 BAUD RATES EXERCISED 
SETLPR: CMP ACURLPR,LPRPTR ;DONE ALL 13. ENTRIES ?? 
BEQ 3$ ;BR IF YES 
V @LPRPTR,CURLPR ;GET THE LPR CONSTANT 
TSTB aSWR : QUICK TEST ? 
BMI 1$ ;BR IF NOT - SUPPLY THE WHOLE THING 
CMP #33500,CURLPR ;9600 BAUD TEST ?? 
BEOQ 1$ ; IF YES 
MOV #-1 QUICK 7SET QUICK TEST FLAG 
BR 2$ ; CONT INUE 
1$: CLR QUICK 7;DO FULL TESTING AT -9600. 
2$: ADD #2,LPRPTR SUPDATE THE TABLE POINTER 
ADD #2,R5 :MOVE PC AROUND ERROR BRANCH 
3$: RTS R5 ;RETURN 


sTHIS ROUTINE IS CALLED TO SETUP THE CHAR LENGTH SELECT BITS AND 
sLOAD THE OUTPUT DATA BUFFER 


CALLING SEQUENCE: 


; JSR R5,SETCL ; CALL 
; BR NEWLPR sEXIT BRANCH AFTER ALL FOUR LNGTHS TESTED 
SEFCL 3: FSF QUI CKX EXIT AFTER ONLY ONE CHAR LNGTH ? 


CZDHN=D MACY11 30A(1052) 
27-DEC-78 


CZDHND .P11 


5154 


—_ 8 
VI 
WONC 


VI 
we a a 
~N OOO Or 
SSBVEARAVLSS 


017236 


017330 


017532 


01 
017370 


017372 


010246 


022767 


;BR IF YES 
;GENERATE NEW CHAR em SELECT CODE 
+ DONE FOUR OF THEM ? 


mM if YES 

: QUICK nee FLAG SET ? 
:SET QUICK TEST ihe FLAG 
:DO ONLY 5 BIT CHARS 

:DO. ONLY 32. CHAR BUFFER 
SET UP THE CURRENT LPR 


;GENERATE CHAR COUNT 


:GO SET UP THE OUTPUT SUFFER 


sMOVE PC AROUND EXIT BRANCH 
TURN 


THE OUTPUT DATA BUFFER WITH THE 


3:sPOP STACK INTO R2 
URN 


-THIS ROUTINE IS CALLED TO SET UP THE PARITY. SELECT BITS 


ALL 
EXIT BRANCH 
: DONE a gh COMBOS ? 
:QUI CK TEST FLAG SET ? 
F NOT 


:CHECK ODD PARITY ONLY 
;SET PARITY SELECT BITS 


J 9 
27=DEC=78 15:31 PAGE 114 
15:28 POWER DOWN AND UP ROUTINES 
BNE 2$ 
002332 . INC CLSEL 
000004 002324 CMP #4 CLSEL 
002252 TST QUICK 
BEQ 1$ 
002246 INC QUICKX 
002304 CLR CLSEL 
177760 002274 MOV #127760, CHRCNT 
000003 002262 1$ BIC #3, CURLPR 
002264 002254 BIS CLSEL CURLPR 
002254 ASL CHRCNT 
000006 JSR PC, SUBUF 1 
000002 ADD #2.R5 
2$: RTS R5 
:THIS ROUTINE IS CALLED TO LOAD 
sREQUIRED BINARY COUNT PATTERN 
: CALLING SEQUENCE: 
: JSR PC, SUBUF 1 
SUBUF 1: 
MOV R2,~-(SP) 
MOV R3,-(SP) 
MOV R4.-(SP) 
CLR R4 
002226 MOV CHRCNT.R3 
032754 MOV #TBUF .R2 
1$: MOVB R4,(R2)+ 
INC R4 
INC R3 
BNE 1$ 
MOV (SP) +, RG 
MOV (SP) +,R3 
MOV (SP) +_R2 
RTS PC 
:IN THE CURRENT LPR TEST CONSTANT 
:CALLING SEQUENCE: 
; JSR R5,SETPAR 
: BR NEWCL 
177777 002200 SETPAR: CMP #-1,PARBIT 
BEQ 5$ 
002124 TST QUICK 
BEQ 1$ 
000060 002162 MOV #60,PARBIT 
0 002144 1$: BIC #60, CURLPR 
002150 002136 BIS PARBIT,CURLPR 
002142 TST PARBIT 
BNE 2$ 


sSELECT BITS 00 ? 
BR IF NOT 


SEG ai 


CZDHN~D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 115 


ae 


CZ2DHND.P11  27=DEC-78 15:28 POWER DOWN AND UP ROUTINES SEQ 0114 
5210 017440 012767 000020 002132 MOV #20,PARBIT ;SET SELECT BITS TO 01 
5211 617446 000417 BR 4$ 
§212 017450 022767 000020 002122 2%: CMP #20,PARBIT “SELECT BITS 10 ? 
5213 017456 001004 BNE 3$ “BR IF NOT 
5214 017460 012767 900060 002112 MOV #60,PARBIT ;MAKE SELECT BITS 11 
5215 017466 000407 BR 4$ 
5216 017470 022767 000060 002102 38: CMP #60,PARBIT “SELECT BITS 11 ? 
5217 017476 001005 BNE 5$ “BR IF NOT 
5218 17500 012767 177777 002072 MOV #~-1,PARBIT SET EXIT FLAG 
5219 017506 062705 000002 4$: ADD #2,R5 *MOVE RETURN PC AROUND EXIT BRANCH 
5220 017512 000205 S$: RTS “RETURN 
2556 :THIS ROUTINE IS CALLED TO SET UP FOR KEYBOARD INTERRUPTS 
5224 017514 012767 017540 160336 KYBD1: MOV #KYBD2.60 ;SET UP THE INPUT VECTOR 
5225 017522 012767 000340 160332 «MOV #340,62 
5226 017530 012767 900100 160022 #100.177560 :ENABLE KYBD INTRS 
5227 017536 000207 RTS PC =RETURN TO START TESTING 
5229 ;THIS ROUTINE SERVICES THE KEYBOARD INTERRUPT AND LOOKS FOR AN °'S’’ 
5230 :BEING TYPED TO INDICATE ABORT AND PRINT STATISTICS 
5232 017540 117746 161402 KYBD2: MOVB  a$TKB,-(SP) :GET CHAR TYPED 
5233 017544 142716 000200 BICB #200, (SP) :CLEAR UNWANTED BITS 
5234 017550 122716 000123 CMPB ss #'123. (SP) :WAS AN ''S'' TYPED ? 
5235 017554 001420 BEQ 1$ :BR IF YES 
5236 017556 022767 000176 161354 CMP #SWREG, SWR [USING SOF TuARE SWR? 
5237 017564 001024 BNE $ =BRANCH IF 
5238 017566 126727 161342 000007 CMPB = $AUTOB.. #1 RUNNING IN. AUTO MODE? 
5239 017574 001420 BEQ “BRANCH IF YE 
5240 017576 122716 000007 C(MPB ss #7, (SP) 71S IT A <*G> 
5241 017602 001015 BNE 2$ “BRANCH IF NO 
5242 017604 005726 TST (SP)+ POP 
5243 017606 104401 013745 TYPE .$CNTLG = TYPE <*G> 
5244 017612 000167 173324 JMP $GTSWR 
5245 017616 005726 1$: TST (SP) + :POP 
5246 077620 RESET :ZAP THE WORLD 
5247 017622 012706 901100 MOV #STACK, SP *RESET THE SP 
5248 017626 004767 001566 JSR PC, CHPS1 7GO CLEAR PSw 
5249 017632 000167 164554 JMP PRSTAT :GO DUMP THE STATISTICS 
5250 017636 005726 2$: TST (SP) + :POP 
3251 017640 RT] :RETURN AND FORGET IT 
aS22 ;THIS ROUTINE SENDS A TEST BUFFER TO REMOTE DH11 LINE 
5255 017642 016701 001646 SENDP2: MOV DHADR,R1 :SET UP DH SCR ADDR 
5256 017646 012711 004000 MOV #B1T11,(R1) >CLEAR THE DH11 
5257 017652 016711 002266 MOV LINE, (R1) :SET LINE SELECT 
5258 017656 162705 032754 SUB #TBUF , :SET UP BYTE COUNT 
5259 017662 005405 NEG R5 
5260 017 010561 09010 MOV R5,BCR(R1) 
5261 017670 012761 032754 000006 MOV #TBUF , CAR(R1) :SET CURRENT ADDRESS 
5262 017676 016761 001666 000004 MOV CURLPR,LPR(R1) :SET LINE PARAMETERS 
5263 7724 016761 001616 000012 MOV LINMSK.BAR(R1) sACTIVATE THE LINE 
§265 017712 005711. ue TST (R1) :DONE TRANSMITTING ?? 





017714 
017716 


017720 


017 
017772 


017774 
017776 
20000 


020110 
026112 
020114 
020122 
020130 
020132 
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100376 
000207 


052767 
005726 
000207 


104401 


gftnret-78 
5:28 


002506 
7 


002462 
002456 


002450 


000010 


022150 
036000 


002120 


000002 
002104 


000004 
022234 


032000 


026701 ». 
012767" 022236 
042767 001700 


005716 


002430 


002140 
001554 


002110 
001524 


002070 
002062 


001464 





15:31 
Pp 


sTHIS ROUTINE IS CALLED TO LOAD FILLERS 


PAGE 116 
OWER DOWN AND UP ROUTINES 


BPL 
RTS 


LDFILL: MOVB 
MOV 


1$: 


RTS 


1$ 
PC 


FILLB,R4 
#ECBUF +1,R3 
$TMPO,ECBUF 
$TMPO, (R2) + 
FILLA, (R3)+ 
FILLA, (R2)+ 
R4 


1$ 
FILLB,R4 
R4 


R4 
R4,BCR(R1) 
PC 





;BR_IF NOT 
;RETURN TO CONTROL ROUTINE ‘’SENDP1‘’ 


INTO ECHO BUFFER 


3GET COUNT OF FILLERS 
;SET UP BUFFER POINTER 
;STORE LF CHAR 

3 IN ECHO BUFFER TOO 
;LOAD A FILLER CHAR 


; COUNT IT 
7;BR TIL REQUIRED COUNT LOADED 
;SET UP BYTE COUNT REG 


;LOAD BCR REG 
sRETURN TO RINT2 


; THIS ROUTINE IS CALLED TO SET UP XMITTER SPEED 


INXSP: 


1$: 


23: 


3$: 


4$: 


5$: 


BIS 
TST 


RTS 


#XSPTAB,XSPTR 
#36000, CURLPR 


(SP) 

4$ 

@XSPTR, (SP) 
3$ 


#2,XSPTR 
@XSPTR,CURLPR 
(SP) + 


5$ 


FIX 
c 


ASK USER ie TYPE SPEED 


R SPEED ?"° 
POINTER 
INIT SPEED 7g BITS 
sREAD SPEED HE TYPED 
‘DEFAULT TO 9600. BAUD ? 


pig ae MATCH TABLE ENTRY ? 


F NO 
;POINT TO SELECT BITS IN TABLE 
;SET ik SELECT BITS 


INT TO NEXT ENTRY 
ABLE ? 


#4 .XSPTR :PO 
#XSPTAB+S2..XSPTR:END OF T 
2$ :BR IF NOT 


(SP) + 
1$ 


#32000, CURLPR 
(SP) + 


PC 


ERROR MESSAGE 
:“"INVALID XMITR SPEED - TRY AGAIN" 
FIX THE SP 


~3G0O TRY AGAIN 


:SET UP DEFAULT TO 9600. BAUD 
sFIX STACK POINTER 


RETURN TO CALLER 


THIS ROUTINE IS CALLED TO SET UP RECEIVER SPEED 


INRSP: 


1$: 


MO 

BIC 
RDD 
TST 


#RSPTAB,RSPTR 


#1700, CURLPR 
(SP) 


ZASK USER TO TYPE SPEED 
;" RECEIVER SPEED ? 

:SET UP TABLE POINTER 
:INIT SPEED SELECT BITS 
:READ SPEED HE TYPED 
:DEFAULT TO 9600. BAUD ? 


eee MACY11 gOA( 1034) 
DHND .P11 27-DEC-78 


020212 
020220 


020222 


001426 


052767 
005726 


000207 


POWER DOWN AND UP ROUTINES 


4$ 

@RSPTR, (SP) 
3$ 

#2,RSPTR 
@RSPTR,CURLPR 
(SP) + 

5$ 

#4 RSP 


3BR IF YES 
‘an iP + ald MATCH TABLE ENTRY ? 


;POINT TO SELECT BITS IN TABLE 
ix $f araee SELECT BITS 
CONTINUE 


sPOINT TO NEXT tidal 


TR 
#RSPTAB+52. /RSPTR;END OF TABLE ? 
2$ ;BR IF NOT 


(SP) + 
1$ 


#1500, CURLPR 
(SP) + 


PC 


sERROR MESSAGE 


i INVALID RCVR SPEED - TRY AGAIN’’ 


HE SP 
:GO TRY AGAIN 


sSET UP DEFAULT TO 9600. BAUD 
sFIX STACK POINTER 


sRETURN TO CALLER 


s THIS ROUTINE IS CALLED TO SET UP LINE PARAMETERS FM KYBD 


27-DEC=78 15:31 PAGE 117 
15:28 
a BEQ 
002072 2$: CMP 
BNE 
000002 002062 ADD 
002056 001410 BIS 
TST 
BR 
000004 002042 3$: ADD 
022322 0062034 CMP 
BNE 
TYPE 
RSMSG2 
TST 
BR 
001500 001350 4$: BIS 
TST 
5$: RTS 
005772 LPRIN: CLRB 
TYPE 
LPMSG 
1$: RDCHR 
MOV 
900015 CMPB 
BEQ 
005750 MOVB 
TYPE 
EC2 
BR 
005736 2$: TSTB 
BEQ 
000116 005726 a 
0001351 005716 CMPB 
BNE 
BR 
001254 3$: TST 
BNE 
033503 001244 A 4d 
177442 4$: JSR 
177552 JSR 
000022 JSR 
000162 JSR 
000274 JSR 
000410 5$: JSR 
000474 JSR 
RTS 


EC2 


(SP)+,RO 
#15,R0 
2$ 


RO,EC2 


1$ 

EC2 

3$ 

#116,EC2 
#131,EC2 
LPRIN 

CURLPR 
#33503, CURLPR 
5$ 


eo NPB 
PC, INFCHR 
Ee ale 


; CLEAR ECHO BUFFER 


:'DO YOU WANT TO CHANGE *LPR’?’’ 


;GET WHAT HE TYPED 
= WAS IT A <CR> ?? 
BR IF YES 

sECHO WHAT HE TYPED 


:GO WAIT FOR TERMINATOR 
2-<CR> ONLY ?? 


BEEN SET UP AT ALL ? 
;BR_IF YES USE PREVIOUS LPR 
sSET DEFAULT 9600 BAUD.8 BITS NO PARITY 


> CON 

:GO INPUT AND SET UP XMIT SPEED 

:GOQ INPUT AND SET UP RCVR 

:GO INPUT AND SET UP CHAR LENGTH 

:GO INPUT AND SET UP NO. OF STOP BITS 
>GO INPUT AND SET UP PARITY SELECTION 
:GO INPUT AND SET UP FILLER CHAR 
:GO_INPUT AND SET UP FILLER COUNT 
;RETURN TO CALLER 


SEQ 0116 


fey MACY11 30A(1052) 27=DEC-78 15:31 PAGE 118 
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27-DEC-78 15: POWER DOWN AND UP ROUTINES SEQ 0117 
oaf8 :THIS ROUTINE IS CALLED TO SET UP CHAR LENCTH BITS 
5380 020 105067 005632 INCL: CLRB  €EC2 ; CLEAR THE ECHO BUFFER 
5381 020370 104401 YPE :ASK FOR INPUT 
5382 020372 026767 CLMSG1 :"'CHAR LENGTH - 6,7. OR 8 2" 
5383 0203574 04276 000005 001166 1$: BIC #3,CURLPR “INIT CHAR LENGTH SELECT BITR 
5384 020402 104410 RDCHR *GET THE CHAR HE TYPED 
5385 020404 012 MOV (SP)+,RO ;GET WHAT HE TYPED 
5386 020406 122700 00C015 CMPB #15,R0 sWAS IT A os ?? 
$387 020412 001405 BEG 11$ “BR IF IT WAS 
5388 020414 110067 005602 MOVB RO, EC2 “ECHO WHAT HE TYPED 
5389 020420 104401 TYPE 
5390 020422 026222 EC2 
5391 020424 000763 BR 1$ 3G0 2d fod , |ERMINATOR 
5392 020426 105767 005570 11$:  TSTB  €£C2 *<CR> ONLY 
5393 020432 001432 . BEQ 4$ “BR IF YES 
5394 020434 142767 000060 005560 BICB #60.EC2 STRIP ASCII 
5395 020442 122767 000006 005552 CMPBs«#6. ECC 76 BITS ? 
5396 020450 001 BNE $ “BR IF NOT 
5397 020452 052767 000001 001110 BIS #1, CURLPR :SET UP FOR 6 BIT CHARS 
5398 0204 22 BR > CONT INUE 
5399 020462 122767 000007 005532 2$: CMPBs#'7 EC2 :7 BITS ? 
5400 020470 001 BNE 3$ “BR IF NOT 
5401 020472 052767 000002 001070 BIS #2, CURLPR :SET UP FOR 7 BIT CHARS 
5402 020500 12 BR $ > CONT INUE 
5403 020502 122767 000010 005512 3S: CMPBs«a#B.. .EC2 78 BITS ? 
04 020519 001403 BEQ 4$ “BR IF YES Pe 
5405 020512 104401 TYPE :ERROR MESSAGE 
5406 020514 027025 CLMSG2 “INVALID CHAR LENGTH = TRY AGAIN’ 
5407 020516 722 BR INCL =GO TRY AGAIN 
5408 020520 052767 000003 001042 4s: BIS #3, CURLPR >SET UP FOR 8 BIT CHARS 
5409 020526 207 5$: RTS PC “RETURN TO CALLER 
5411 ;THIS ROUTINE IS CALLED TO SET UP NO. OF STOP BITS 
5413 020530 105067 005466 INSB: CLRB  £EC2 ; CLEAR ECHO BUFFER 
5414 020534 104401 TYPE TASK FOR I 
5415 020536 027071 SBMSG1 :'NO. OF STOP BITS - 1 OR 2 2" 
5416 020540 104410 1$: RDCHR *GET CHAR TYPED 
5417 020542 012 ~ MOV (SF)+,RO :GET WHAT HE TYPED 
5418 020544 122700 000015 CMPB ss #'15.RO “WAS IT A <CR> 
5419 020550 001405 BEQ 11$ :BR IF YES 
5420 020552 110067 005444 MOVB _—RO,EC2 [ECHO WHAT HE TYPED 
5421 020556 104401 TYPE 
5422 020560 026222 EC2 
5423 020562 000766 1$ :GO WAIT FOR TERMINATOR 
5424 020564 105767 005432 18: 7s #2 =<CR> ONLY ?? | 
5425 020570 001422 BEQ 3$ “BR IF YES 
5426 020572 142767 000060 005422 BICB  #60.EC2 :CLEAR ASCII JUNK 
5427 020600 122767 090002 005414 CMPBséd#'2 EC? :2 STOP BITS ? 
5428 020606 007 BNE 2$ “BR IF NOT | 
5429 020610 052767 000004 000752 BIS #4, CURLPR *SET UP FOR TwO STOP BITS 
5430 020616 1 BR CONTI 
5431 020620 122767 000001 005374 2S: CMPB #1, E(2 ; ONE STOP BIT ? 
5432 020626 001403 BEQ 3$ 
5433 020630 104401 TYPE ‘ERROR MESSAGE 


s“"INVALID NO, 
;GO TRY AGAIN 
;SET UP FOR ONE STOP BIT 
RETURN TO CALLER 


STOP BITS = TRY AGAIN’’ 


2 THIS ROUTINE IS CALLED TO SET UP PARITY SELECT BITS 


;CLEAR ECHO BUFFER 
SASK FOR INPUT 
:’ PARITY ~ E,0, OR <CR> ?°' 

: INIT FOR NO PARITY CHE CK ING 
:GET CHAR TYPED 

;GET WHAT HE TYPED 

sWAS IT A <CR> ?? 

:BR IF IT WAS 

sECHO THE CHAR TYPED 


:GO WAIT FOR TERMINATOR 


:<CR> ONLY ?? 
7BR IF YES 
SEVEN PARITY ?? 
“BR IF NOT 


SET UP FOR EVEN PARITY 
CONT INUE 


“ODD PARITY 
“BR IF NOT 

iSET UP FOR ODD PARITY 

; CONT INUE 

ERROR ME S SAGE 

; INVALID PARITY - TRY AGAIN’ 
-GO TRY AGAIN 
sRETURN TO CALLER 


:CLEAR ECHO BUFFER 
: INIT TEMP STORAGE FOR CHAR 


:GO WAIT FOR TERMINATOR . 


Pgs ONLY ?? 

BR IF YES 
SET * FILL CHAR 
: SAVE 


a macytl 30A(1052) 27=DEC=78 15:31 PAGE 119 
C7DHND P11 27=DEC=78 15:28 POWER DOWN AND UP ROUTINES 
020632 O27 180 SBMSG2 
020634 00073 ; sla! INSB 
020636 042767 000004 000724 %$§: BIC #4,CURLPR 
020644 000207 “$: RTS PC 
020646 105067 005350 INPB:  CLRB EC2 
020652 106401 TYPE 
020654 027176 PBMSG1 
020656 042767 000060 000704 °7$: BIC #60, CURLPR 
020664 104410 RDCHR 
020666 012600 MOV (SP) +, RO 
020670 122700 000015 MPR #15.R 
020674 001405 BEQ 11$ 
020676 110067 005320 MOV RO,EC2 
020702 104401 TYPE 
0207 026222 EC2 
020706 000763 tae 1$ 
020710 105767 005306 11§: TSTB EC2 
020714 001623 BEQ 4$ 
020716 122767 000105 005276 oMpha #105.EC2 
020724 001004 BNE 
020726 052767 000060 000634 BIS #60, CURLPR 
0207 000613 bye 4$ 
020736 122767 000117 005256 2%: {MPR #117.E&C2 
020744 001004 BNE 3$ 
020746 052767 000020 000614 BIS #20, CURLPR 
020754 0004 tyke 4$ 
020756 104401 3$: TYPE 
0207 027244 PBMSG2 
020762 000731 igh INP 
020764 000207 4$: RTS PL 
;THIS ROUTINE IS CALLED TO SET UP ‘FILL’’ CHAR 
020766 105067 005230 INFCHR: CLRB EC2 
020772 005067 901422 CLR FILLA 
020776 104401 TYPE 
021000 027303 FILCT 
021002 005067 001420 1§: CLR CHF ILL 
21006 104410 RDCHR 
021010 012600 MOV (SP)+,R0 
021012 122700 000015 CMPB #75,R0 
021016 001405 BEO 2 
021020 110067 005176 MOVB RO,EC2 
021024 104401 TYPE 
021026 026222 EC2 De ae 
1030 000764 hfe 1 co et 
~0216032- 105767 005164 2%: TSTR EC2 
021036 001403 BEQ 3$ 
021040 116767 005156 001361 MOVB EC2 DHF ILL +1 
021046 116767 001355 001354 4$:- MOVB DHF ILL*1,FILLA 
021054 000207 RTS PC 


FILL CHAR 
:RETURN TO CALLER 


SEQ 0118 


CR CR CR FR OAD OBR OBR CAC FRR CR PR FR FR OR RR eR RRR Re ee es a eee el sl ec lhc 


C 10 
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C 7DHND 27=DEC=78 15:28 POWER DOWN AND UP ROUTINES SEQ 0119 
5490 ;THIS ROUTINE IS CALLED TO SET UP 'FILL’' COUNT 
5492 021056 005067 001350 INFCNT: CLR FILLB : ; INIT TEMP, STORAGE FOR COUNT 
5493 021062 104401 TYPE “ASK FOR COUNT 
5494 021066 027331 FILC2 “FILL COUNT 2°" 
5495 021066 104412 RDOCT “GET OCTAL NO. TYPED 
5496 021070 005716 TST (SP) “DEFAULT TO ONE ? 
$497 021072 001403 BEO 1$ “BR IF YES 
5498 021074 111667 001326 MOVB (SP) .DHF ILL :SET UP COUNT TYPED 
5499 021100 090403 BR 2$ = CONT INUE 
500 021102 112767 000001 001316 1$: MOVB #1 DHF ILL “SET UP FOR 1 FILLER 
5501 021110 005726 2$: TST (SP) + “FIX THE SP 
5502 021112 142767 000360 001306 BICB  w#360.DHFILL “LIMIT COUNT TO 15. 
§503 021126 116767 001302 001304 MOVE DHFILL.FILLB : SAVE IT FOR LATER 
§504 021126 000207 PC RETURN TO CALLER 
5508 = THIS nautine CALLED TO SET UP ALTERNATING 1/0 PATTERN 
5507 021130: 004767 900246 SUPATA: JSR PC, CLALL :GO CLEAR XMIT AND RCV BUFFERS 
5508 021134 016700 000434 MOV CHRCNT RO =GET CHAR COUNT 
5509 021140 012705 032754 MOV #TBUF RS :POINT TO XMIT BUFFER 
5510 021144 112725 000252 1$: MOVB #252.(R5)+ =LOAD A BYTE 
5511 021150 005200 INC RO =COUNT IT 
5512 021152 001374 BNE 1$ :BR TILL BUFFER FUL 
5513 021154 000207 RTS PC =RETURN TO PATA’ ROUTINE 
3515 :THIS ROUTINE IS CALLED TO SET UP UP COUNT PATTERN 
5517 021156 004767 000220 SUPATU: JSR. PC. CLALL :GO CLEAR BUFFERS 
5518 021162 016790 000406 MOV CHRCNT RO :GET COUNT OF CHARS TO LOAD 
5519 021166 012705 932754 ~ MOV #TBUF RS =POINT TO XMITTR BUFFER 
5520 021172 005004 3 CLR R4 ; INIT CHAR GENERA 
5521 021174 110425 13; MOVB = R4.(R5)+ [LOAD ONE BYTE 
5522 021176 105206 INCB RG :GENERATE NEXT BYTE 
5523 021200 005200 INC RO :COUNT IT 
5524 021202 001374 BNE 1$ 7BR TIL BUFFER FUL 
5525 021204 000207 | RTS PC “RETURN TO PATO" ROUTINE 
5587 ; THIS ROUTINE IS CALLED TO SET UP DOWN COUNT PATTERN 
5529 021206 004767 000170 SUPATD: JSR PC, CLALL :CLEAR THE BUFFERS 
5530 021212 016700 000356 MOV CHRCNT RO :SET UP COUNT TO LOAD 
5531 021216 012705 032754 MOV #TBUF RS :POINT TO XMIT BUFFER 
5532 021222 012704 000377 MOV #377 .R4 :INIT CHAR GENERATOR 
5533 021226 110425 1$: MOVB RG. (RS) + *LOAD ONE BYTE 
5534 021230 105304 DECRG “GENERATE NEW CHAR 
5535 027232 005200 INC RO :COUNT IT 
5536 021234 001374 BNE 1$ BR TIL BUFFER FULL 
3537 021236 000207 RTS PC “RETURN TO 'DPATA’’ ROUTINE 
5539 ;THIS ROUTINE CALLED TO LOAD RANDOM DATA PATTERN 
5541 021240 004767 000136 SUPATR: JSR PC, CLALL :GO CLEAR BUFFERS 
5542 021244 016700 000324 MOV CHRCNT RO :SET UP COUNT TC LOAD 
5543 021250 012705 032754 MOV #TBUF RS POINT TO XMITTR BUFFER 
5544 021254 012767 125252 001074 MOV #125252,RANA = INIT RANDOM NUMBER GENERATOR 


D 10 
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5546 021262 066767 001070 001070 1$: ADD RANA , RANB ;GENERATE RANDOM NO. 
5547 021270 005567 00106 ADC ——- RANA 
$548 021274 066767 001060 001054 ADD —«RANB, RANA 
3549 021502 005567 001052 ADC = RR 
5551 021306 116725 001044 MOVB —- RANA, (R5)+ ;LOAD A BYTE 
§552 021312 005200 INC — RO COUNT iT 
5553 021314 001362 BNE 1$ :BR TIL BUFFER FULL 
a2ee 021316 000207 RTS PC ZRETURN TO ‘DPATR'’ ROUTIWE 
ene THIS .ROUTINE LOADS A SINGLE CHAR THROUGHOUT BUFFER 
5558 021320 004767 000056 SUPATS: JSR —- PC, CLALL ;GO CLEAR BUFFERS 
5559 021324 016700 000264 MOV —s- CHRCNT RO : INIT CHAR COUNTER 
5560 021330 012705 032754 MOV —s #TBUF .R5 :POINT TO XMIT BUFFER 
5561 021334 116725 001070 18: MOVB SINGLE, (R5)+ LOAD ONE CHAR 
5562 021340 005200 INC — RO :COUNT IT 
§563 021342 001374 BNE 1$ :BR TIL BUFFER FULL 
3564 021344 000207 i; ee :RETURN TO “ DPATS™ ROUTINE 
6 
2208 >THIS ROUTINE CALLED TO INIT CHAR LENGTH MASK FOR PATTERNS TESTS 
5568 021346 016700 000216 SUCLMK: MOV CURLPR.RO ;GET CURRENT ‘LPR’ 
5569 021352 012767 0003460 001902 MOV #340, CLMSK INIT FOR 5 BIT CHARS 
5570 021360 042700 177776 BIC - #177776,R0 :MASK OFF ALL BUT CL BITS 
5571 021364 005700 : 1$: TST ~—_ RO DONE SETUP ? 
557? 021366 001404 BEQ =—ss«é$ BR IF YES 
5573 021370 106367 000766 ASLB CLK SSHIFT MASK LEFT 
5574 021374 005300 DEC = RO TIT 
5575 021376 000772 BR 1$ £60 SEE IF ITS RIGHT ON 
5576 021400 000207 2$: RTS — PL RETURN TO CALLER 
5977 [ROUTINE TO CLEAR XMIT AND RECEIVER BUFFERS 
5579 021402 012700 032754 CLALL: MOV — #TBUF RO ;SET UP POINTER 
5580 021406 005020 1$: CLR (RO) + CLEAR A WORD 
§581 021410 022700 034104 (MP ss WENBUF SRO DONE ALL LOCATIONS ? 
5582 021414 001374 $ :BR IF NOT 
5583 021416 000207 Rts ee 
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CZDHND .P11 


027512 


012746 
012766 


000002 
000207 


012746 
012746 


000002 
000207 


27=DEC=78 
27=DEC=78 15:28 


000000 
021432 


200 340 
021446 


¢ a 


156356 
021466 
000002 
021502 


1546326 
1§ 7476 


1$6350 
GOG006 


19:51 
p 


PAGE 122 
OWER DOWN AND UP ROUTINES 


:THIS ROUTINE IS CALLED TO SET PSW PRIORITY TO 000 IN ORDER 


E 10 


270 BE (S111 COMPATIBLE 


CHPS1: 


1$: 


CHPS2: 


1§: 


THIS ROUTINE 


SAPS: 


1§: 


2$: 


MOV 


MOV 
MO 


#0,-(SP) 
#1$,-(SP) 


PC 


#340,-(SP) 
#1$,-(SP) 


PC 


'S ALSO FOR LSI11 
570 SAVE THE PSw IN ‘‘STMPQ’" 


-(SP) 
34,-(SP) 
#1$, 34 


2(SP) .6¢SP) 
#2$.,(SP) 


(SP)+,34 
(SP>*«, STMPO 
Pc 


NEW PSW 
sNEW PC 


CHANGE 


sNEW PC 


; CHANGE THE PSW 
sRETURN TO CALLING TEST 


COMPATIBILITY AND IT IS CALLED 


; TEMP STORAGE TO SAVE PSw 
7SAVE TRAP VECTOR POINTER 
:;GO TO 1$ ON TRAP 

:GO TO IT 

;GET PSwW SAVED 

:GO TO 2$ ON RTI 


sRESTORE VECTOR 
FINALLY SAVE PSwW IN $STMPC 


PSW 
TO CALLING TEST 


THIS ROUTINE DOES THE SAME THING EXCEPT IT SET THE PSw 
sPRIORITY TO 340 (LEVEL 7 ) TO LOCK OUT INTRS 


NEW PSW 


RE TURN 


SEQ 0121 


) 5 
s~ 


_~_._, _ ee ee eelUlUvwe lee OOO ell —_—_— — 


*_ eo eee we Fe ee Fe UF: hUvrrElhlUCUrr Oe lCUr CO 


CZ7DHN=D “a 30A(1052) 
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CZDHND .P1 


021514 


021532 
021534 


021570 


027572 
621574 


021576 
021600 


621602 


19:31 
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DH11 PROGRAM CONSTANTS AND VARIABLES SEQ 0122 
-SBTTL DHT? PROGRAM CONSTANTS AND VARIABLES 


° CRT AAA AREA ERA REARA ERE ERE 


;ADDITIONAL PROGRAM CONSTANTS AND VARIABLES 


CC TRAE REAR RAAT ERATE hhKhhkhh 


DHADR: 
DHVCT: 


SELMSK: 


DHSEL: 


L INSEL: 
L INMSK: 
DRPLIN: 


QUICK: 


QUICKM: 


77777 


Oo Oo O20O—+OCOOO 


; INDEX CONST. TO ACCESS NEXT RCVD CHAR REG 
; INDEX CONST. TO ACCESS LINE PARAMETER REG. 
; INDEX CONST. TO ACCESS CURRENT ADDRESS REG. 
; INDEX CONST. TO ACCESS BYTE COUNT REG. 

: INDEX CONST. TO ACCESS BUFFER ACTIVE REC. 

s INDEX CONST. TO ACCESS BREAK CONTROL REG. 
: INDEX CONST. TO ACCESS SILO STATUS REG. 


sHOLDS THE *’SCR’’ ADDRESS OF THE DH11 UNDER TEST 
sHOLDS THE 1ST VECTOR ADDRESS OF THE DH11 UNDER TEST 
:BIT TST MARKER FOR SELECTING DH11° S 
SPECIFIES DH11°S en tecre™ FOR TEST 
: SPECIFIES LINES TO TEST 

MARKER USED TO TEST FOR LINES TO TEST 
“DROPPED LINE FLAGS 


sQUICK TEST FLAG = ALLOWS SINGLE PATTERN TEST 
:ON ALL TESTS NOT USING 9600. 
sALLOWS SUB-TEST EXIT DURING QUICK TEST 


sTHIS TABLE CONTAINS THIRTEEN CONSTANTS USED TO ESTABLISH 
:THE INITIAL LINE PARAMETERS FOR THE THIRTEEN E— BAUD 
TRATES = EACH PARAMETER INITIALLY ale NO PARITY CHECKING 
ZAND A LHARACTER LENGTH OF FIVE BITS 


LPRIAS: 


CURLPR: 


LPRPTR: 
CHRONT: 


CL SEES 


PARBIT: 


RDONE : 


33500 
00 


“J 
Ww 


EEpeee 


Soe 
eeeee 


esses 
= 


WI ny 


:CONTAINS CURRENT ‘‘LPR** CONSTANT 


;CONTAINS POINTER TO LPR TABLE 
sLOADED WITH CURRENT CHAR COUNT 


;CHAR LENGTH SELECT PARAMETER 
PARITY SELECT PARAMETER 


sSOFTWARE DONE FLAG 


te ee 


G 10 
CZDHN=D MACY?) 30A(1052) 27=DEC=78 15:31 PAGE 124 
C2DHND P11 27=DEC=78 15:28 DH11 PROGRAM CONSTANTS AND VARIABLES SEQ 0123 
reel 0216046 000000 RBFEND: 0 ;HOLDS END OF BUFFER ADDRESS 
5673 ;DH11 ADDRESS TABLE = THIS TABLE CONTAINS THE ‘'SCR’’ ADDRESS FOR UP TO 
zene SIXTEEN DH11'S 
5676 021606 160020 DHADTB: 160020 sADDRESS OF FIRST DH11 
5677 021610 160040 160040 s ADDRESS OF SECOND DH11 
5678 021612 160060 160060 | 
5679 021614 1601C 160100 
5 021616 160120 160120 
5681 O 160140 160140 
021622 160760 160160 
5683 624 160200 160 
5 021626 160220 160220 
5685 021630 160240 160240 
5 921632 160260 160260 , 
5687 34 160300 160300 
5 021636 160320 160320 
5689 021640 160340 160340 
5690 021642 160360 160360 
44 021644 160409 160400 ZADDRESS OF THE LAST DH11 
5693 >D471 VECTOR TABLE = THIS TABLE CONTAINS THE VECTOR ADDRESSES FOR UP 
a TO SIMTEEN DHIT'S 
5696 021646 000330 DHYOTR: 330 sADDRESS OF VECTOR FOR FIRST DH11 
5697 021650 0600350 350 ;ADDRESS OF VECTOR FOR SECOND DH11 
5698 021652 000376 379 
5699 021654 000410 416 
5700 021656 439 
5701 021660 600450 450 
5702 021662 000470 470 
5703 021664 000510 $70 
5704 021666 000530 530 
5705 0621670 000550 $59 
5706 021672 000570 $76 
5707 021674 000610 610 
5708 021676 000630 6,30 
5 1700 000650 650 
5710 021702 000670 670 
re 021704 000770 740 ZADLRESS OF VECTOR FOR LAST DH71 
Lt, 021706 000000 VEFLG: 0 VECTOR DISPLACEMENT FLAG 
5715 
5716 7BR PRIORITY LEVEL TABLE ~ THIS TABLE CONTAINS THE PRIORITY LEVELS 
3717 sFOR UP TO SIXTEEN DH11'S - THE RCVR LEVFL IS STORED IN THE LOW BYTE 
2519 sAND THE XMTTR LEVEL IN THE HIGH BYTE 
5720 021710 120240 BRiLVL: 120260 ;BRLEVELS FOR FIRS! DR11 
5721 021712 120240 120240 ;BR LEVELS FOR SECOND DH11 
5722 021714 120240 12024 
5723 021716 120240 120240 
$724 021720 120240 120240 
5725 021722 120240 120240 
5726 021724 120240 120240 


C70HN=D MACY?! 204¢1052) 
27-DEC=78 15:28 


CZDHND .P11 


621726 


022054 


120240 


e 


?=DEC=78 
2 


H 10 
14:31 PAGE 125 
DH11 PROGRAM CONSTANTS AND VARIABLES 


120240 


120260 ;BR LEVELS FOR LAST DH11 


sTHIS DW ADDRESS TABLE IS FILLED BY THE AUTOSIZER. 


DHADRS: 
.w#GR 


Oo 
OOQODWOVAWOOOVDIOGIVOO 


THIS DH VECTOR TABLE IS FILLED BY THE AUTOSIZER. 


DOOOIWDBIOVBVOOO000 


sTHIS DM ADDRESS TABLE IF FILLED BY THE AUTOSIZER. 


S 
Le 
DWOOMMDND 


SEQ 0124 


CZDHN=D MACY1? 304(1052) 
27=DEC=78 1° 


CZDHND P11 


022056 
0 


022144 


022146 
022750 


000000 
00C000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


es 


I 10 


15:31 PAGE 126 


DH11 PROGRAM CONSTANTS AND VARIABLES 


WORD 0 
. WORD 0 
-WORD 0 
WORD 0 
-WORD 0 
WORD 0 
. WORD 0 
. WORD : 


:THIS DM VECTOR TABLE IS FILLED BY THE AUTOSIZER. 


Co 
OO OCOOOOOVOVWOVOOOO 


sADDRESSES BETWEEN VECTORS - FILLED BY THE AUTOSIZER 
sDEVICE SELECT PARAME 


TER - FILLED BY THE AUTOSIZER. 
BR LEVEL FOR RCVR 
;BR LEVEL FOR XMITTER 


DHNUM: 0 ; CONTAINS NUMBER OF THE DH11 UNDER TEST 


S NUMBER OF THE LINE UNDER TEST 


LiNE: 0 CONT INE 
7; TABLES USED TO SELECT XMITTR AND RCVR SPEEDS 
ar TABLES CONSIST OF tae TWO WORD ENTRIES - ONE FOR EACH 


LLOWABLE BAUD RATE. 
ory DECIMAL AND THE S6 COND WORD 
7 THAT SETS THAT BAUD RATE IN THE 

KXSPTR: O 


XSPTAB: 50. 
2 


FIRST WORD IS THE ACTUAL BAUD RATE 


a Nei ENCODED BINARY WORD 


sCONTAINS POINTER TO FOLLOWING TABLE 
750. BAUD 


:75. BAUD 

3110. BAUD 

: 134.5 BAUD ae 
3150. BAUD 

;200. BAUD 

;300 BAUD 


SEQ 0125 


foetal . ehh 30A(1052) 
CZ2DHND . PF 27=DEC-78 15:28 


O22202 
0 


022320 


022322 


?=DEC=78 


15:31 


PAGE 127 


J 10 


DH17 PROGRAM CONSTANTS AND VARIABLES 


RSPR: 


RSPTARB: 


sADDPESS POINTERS TO SET UP TABLES WHEN INPUTTING PARAMETERS 


:POINTS TO ADDRESS TABLE 
sPOINTS TO VECTOR TABLE 
sPOINTS TO BR LEVEL TABLE 


sFLAG TO ALLOW settee TITLE ONLY ONCE 
;GENERAL PURPOSE TIMERS 


ADPTR: 
VCPTR: 
BRPTR: 


TITFLG: 
T ; 


DATPAT: 


OVoooO FGdooQO OOo 


16000 


9600. 
1500 


°F >. 


; CONTROL =C€ pat! ivy FM ECHO TESTS 
;PATTERNS TEST 

; ITERATION COUNTER FOR PATTERNS TEST 
:FLAGS TYPE PATTERN 


;600. BAUD 
31200. 
; 1800. 
32400. 
34800. 
;9600. 
; CONTAINS ROINTER TO FOLLOWING TABLE 
350. BAUD 
BAUD 
3110. BAUD 
3134.5 BAUD 
2150. BAUD 
7200. 
:300 BAUD 
:600. BAUD 
;1200. BAUD 
77800. BAUD 
:2400. BAUD 
4800. BAUD 
79600. BAUD 


BAUD 
BAUD 
BAUD 
BAUD 
BAUD 


BAUD 


SEQ 0126 


CZDHN=D MACY11 30A(1052) 


CZ2DHND .P11 


2 
022426 


022430 
022432 


27=DEC~78 


27=DEC=78 
15:28 


15:31 


a eed 


PAGE 128 , 
DH11 PROGRAM CONSTANTS AND VARIABLES SEQ 0127 
PATFLG: 0 ;DATA PATTERNS <CR> SEQUENCE FLAG 
SINGLE: 0 ;HOLDS SINGLE CHAR TEST PATTERN 
RETFLG: 0 ;ECHO TEST RETURN FLAG FM SETUP 
PATLIM: 10. :PATTERNS TESTS ITERATION COUNT 
RANA: 0 ;RANDOM NO. ACCUMULATORS 
RANB: 0 
CLMSK: 0 ;CHAR LENGTH BIT CLR MASK 
EXFLAG: 0 | ;ECHO TEST EXIT FLAGS 
ECBUF: .BLKW 16, ;DATA BUFFER FOR SINGLE LINE FCHO TEST 
DHFILL: 0 :FILL CHAR AND COUNT FOR SINGLE LINE 
:ECHO TESTS 
FILLA: 0 ; TEMP STORAGE FOR FILLER CHAR 
FILLB: 0 ;SAME FOR COUNT 


expec MACYI1 30A(1052)  27-0E(=78 15 


27=DEC= 


ZDHND .P 11 


022434 


0 
022744 


097593 


001116 
001766 


051124 
052111 


78 | 


020116 


021570 
001770 


Q 
(5112 


020040 


Ee 


L 10 
- PAGE 129 
STANDARD ERROR MESSAG BUFFERS 


.SBTTL STANDARD ERROR MESSAG BUFFERS 


SS RRRRERARARRARRERERAEKEHAEEEHKKERKKKEKKKKKRHh kh” SAR R220 RASA 22 222 222 2 2 


;ERROR MESSAGE INFORMATION - MESSAGE BUFFERS AND POINTERS 


a BPReeeeekeeneeaneethkaeenae BAAS SAASEERE SEES SESS ESSE SOS ES SSS SCS © 2 os 


SEQ 0128 


; INFORMATION FOR MESSAGE 1 


EM]: -ASCIZ "NON EX MEMORY ERROR = CROPPED LINE # ' 

DHT: ~ASCIZ * (PC) CURLPR DEVADR REGADR- WAS S/B* 
EVEN 

DT? : -WORD SERRPC,CURLPR,$REG1,$REG2,$REG3.$REG4.0 

DF 2: -BYTE 0,0,9.9.0,0.0.0 


; INFORMATION FOR MESSAGE 2 
EM2: -ASCIZ ‘TRANSMITTER FALSE INTERRUPT - DROPPED LINE # 


; INFORMATION FOR MESSAGE 3 
EMS: eASCiZ ‘BUFFER ACTIVE REGISTER ERROR - DROPPED LINE # ' 


; INFORMATION FOR MESSAGE 4 


M 10 
CZDHNSD MACY11 30A(1052)_ 27=DEC-78 15:31 PAGE 130 ) 
CZDHND.P11 =. 27=DEC~78 15:28 STANDARD ERROR MESSAG BUFFERS SEQ 0129 


5966 Mees 102 O7g13¢ 020105 EM4: -ASCIZ ‘BYTE COUNT REGISTER ERROR = DROPPED LINE # ' 


3 
5972 023010 046040 047111 036108 
00004 


ier 023016 020043 0 

Sane | : INFORMATION FOR MESSAGE 5 

5977 023022 052503 051122 047105 €&MS: -ASCIZ ‘CURRENT ADDRESS REGISTER ERROR - DROPPED LINE # ° 
5978 020124 01 051104 


3066 2105 
5984 023074 047111 020105 020043 
7 00004 


986 
ra th : INFORMATION FOR MESSAGE 6 
res 44 025104 044523 047514 047440 EM6: eASCIZ *SILO OVERFLOW ERROR - DROPPED LINE # '° 


994 

S995 023150 

996 

5997 ; INFORMATION FOR MESSAGE 7 

5999 023153 122 041505 opts EM? : -ASCIZ ‘RECEIVER FALSE INTERRUPT - DROPPED LINE # ° 


06 : INFORMATION FOR MESSAGE 10 
6010 oases! 117 053116 046101 EM10: .ASCIZ ‘INVALID DATA IN SILO = DROPPED LINE # ° 


0 000 
6017 023277 040 056050 024503 D2: eASCIZ * (PC)  CURLPR CHAR # WASADR SHBADR  wAS $/B° 


6020 020043 
6027 023326 053440 051501 042101 





CZDHN=D MACY11 30A(1052) 
27=DEC-78 


CZDHND .P11 


023540 
025546 


023554 


020122 
042101 
040527 
020040 
001116 
001164 
001172 


22 
050101 
060 


0 
020103 


2?=DEC-78 
15:28 


051440 


027523 


021570 
001166 
000000 


052123 
047505 
042040 
042105 
020105 


021570 
021602 


052040 


N 10 
15:31 PAGE 137 

STANDARD ERROR MESSAG BUFFERS 
041110 
020040 
020040 
000102 

LEVEN 
001162 Di2:  .WORD $ERRPC,CURLPR,$REGO, $REG1,$REG2, $REG3, $REG4 0 

; INFORMATION FOR MESSAGE 11 
042440 £M11:  .ASCIZ ‘DATA ERROR - eo! 
026440 ee ee 
020105 

: INFORMATION FOR MESSAGE 12 
052040 EMi2: eASCIZ ‘TEST 7 T = DROPP . 
052040 IMEOUT - DROPPED LINE # 
047522 
046040 
020043 
020051 DH3:  .ASCIZ °* (PC) RLPR RT 
920051 CURLPR RTOTAL XTOTAL RDONE 
052122 
02 
046101 
047117 
001202 a WORD  $ERRPC 

“ae , CURLPR, $TMPO, i : 

001202 LPR,$TMPO,$TMP1RDONE .0 

: INFORMATION FOR MESSAGE 13 
001206 DT4: WORD $TMPO.$TMP1,$TMP2,$TMP3,$TMP4.STMPS.STMP6.0 

OOF Oi: evle  6351.1.1,1.%: 
001 | ° 

; INFORMATION FOR MESSAGE 14 
051105 €M14: .ASCIZ ° R : 
051105 IZ "BUS ERROR TRAP TO 04 
020117 
024503 DH4: -ASCIZ ' (PC) (p ; 
024503 Z ' (PC S) (SP)  TRAPPC TRAPPS 
020040 
020040 
050120 
04052 


HS, 





yy 






SEQ 0130 


“r 


DOOD DOODDDDOOD ow 








B 11 
CZDHN=D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 132 
CZDHND .P11 > 


27=DEC=78 15:28 TANDARD ERROR MESSAG BUFFERS SFQ 0131 


023674 050120 


023700 001116 
023706 001164 


023714 051522 
023722 051516 
023730 040522 
023736 030440 


023742 044523 
046040 


024074 00 
024102 001202 
024110 000000 


024112 046101 


0040 
024220 052116 


024224 001116 
024232 021570 


000123 


001202 
001166 


042126 


001164 
021570 


042524 
047111 


001176 
000000 


044440 
052040 
047524 


042514 


022144 
022564 


047122 


052517 


022144 
000000 


EVEN 


‘ | 
DTS: -WORD $ERRPC,$TMPO,$REG6,$REG1,$REG2,0 


: INFORMATION FOR MESSAGE 15 
EM15: ~ASCIZ ‘RSVD INSTR TRAP TO 10' 


; INFORMATION FOR MESSAGE 16 
EM16: sASCIZ "SINGLE LINE ECHO TEST = INTR WAIT TIMEQUT’ 


DHS: -ASCIZ * (PC) “SDEVADR LINE (SCR) CURLPR EXFLAG" 


V 
6: -WORD SERRPC,$REG1,LINE,$TMPO,CURLPR,EXFLAG,0 


: INFORMATION FOR MESSAGE 17 
EM17: eASCIZ ‘ALTERNATING 1/0 PATTERN TEST DONE" 


DH6: -ASCIZ * (PC) DEVADR LINE CURLPR  ICOUNT* 


\ 


V 
r -WORD $ERRPC,DHADR,LINE,CURLPR,$REGO,0 


: INFORMATION FOR MESSAGE 20 





CZDHN=D MACY11 30A(1052) 


5 
CZD 27=DEC-78 15:28 


HND . 


P11 


024240 


24 
047117 


044502 
42040 


520 
020116 
042040 


054524 
052502 
050040 
047122 
020124 

000 


0 
052116 


047117 


042116 


2?7-DEC-78 


054522 
0 


042040 
054522 


000105 
046517 
000105 


042514 


042516 


020101 


040520 


C 11 
STANDARD ERROR MESSAG BUFFERS 
-ASCIZ “BINARY UP COUNT PATTERN TEST DONE‘ 


15:31 PAGE 133 


EM20: 


: INFORMATION FOR MESSAGE 21 
EM21: -ASCIZ "BINARY DOWN COUNT PATTERN TEST DONE’ 


: INFORMATION FOR MESSAGE 22 
EM22: -ASCIZ "RANDOM DATA PATTERN TEST DONE’ 


: INFORMATION FOR MESSAGE 23 


EM23:  .ASCIZ ‘SINGLE CHAR PATTERN TEST DONE’ 
: INFORMATION FOR MESSAGE 24 
EM24:  .ASCIZ ‘TYPED BUFFER PATTERN TEST DONE’ 


; INFORMATION FOR MESSAGE 25 
EM25: .ASCIZ "DATA PATTERNS TEST TIMEOUT’ 


DH7: -ASCIZ ‘ (PC) DEVADR LINE  CURLPR ICOUNT PATCDE' 





SEQ 0152 





D 11 


CZDHN=D MACY11 30A(1052) 27aEC- 78 15:31 PAGE 134 
CZDHND.P11 =. 27=DEC=78 15:28 STANDARD ERROR MESSAG BUFFERS SEQ 0133 


6190 024606 041524 042504 000 
6191 024614 ‘ 
6192 024674 001116 021514 022144 D 
6193 24622 021570 001162 001164 
6194 024630 000000 


E 
0: -WORD $ERRPC,DHADR,LINE,CURLPR,$REGO,$REG1,0 





E 11 
rt aia ~78 15:31 PAGE 135 


CZDHN=D MACY11 30A(1052) 
CZDHN 15: MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 


HND .P11 27=DEC-78 SEQ 0134 





ee ve: 


005015 


040440 
051501 


055103 


020124 


044104 


052123 
051505 
042040 
020045 


042520 
0 


4 
047117 


- SBTTL MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 


23 ITI IORI III IOI IOI IIIUIIUIOIOIUIIOIIIIOIIOIIIOIUIOIOI IIIS Ot 


:MISCELLANEOUS MESSAGES 


iit ttt dette ete PRPC CPCS PS CSCC L LASALLE SLL LLC L LEST TT TT 


TITLiSF: 


TITLE2: 


INMSG1: 


INMSG2: 


INMSG3: 


INMSG4: 


INMSGS: 


INMSG6: 


ASCIZ 


~ASCiZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


ASCIZ 


eASCIZ <15><12>'CZDHN=D DH11 DATA RELIABILITY TEST'<15><12> 


<15><12>"TESTING DH11 # '<15><12> 


<15><12>"TYPE SCR ADDRESS FOR FIRST DH11'<15><12> 


<15><12>"TYPE VECTOR ADDRESS FOR FIRST DH11°<15><12> 


<15><12>"TYPE DH11 DEVICE SELECTION PARAMETER'<15><12> 


<15><12>" INVALID DH11 SCR ADDRESS - TRY AGAIN'<15><12> 


<15><12>" INVALID DH11 VECTOR ADDRESS - TRY AGAIN'<15><12> 


<15><12>"YOU MUST SELECT AT LEAST ONE DH11'<15><12> 





F 11 
CZDHN=D MACY11 $0A(1052) 27={DEC-78 15:31 PAGE 136 
CZD 15:28 


HND P11 27~DEC-78 MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS SEQ 0135 
6253 025274 020105 044104 0630461 wl 
6254 025302 005015 000 + 
6255 025305 015 042012 050105 INMSG7: .ASCIZ <15><12>'"DEPRESS ‘'CONTINUE'' TO START TESTING'<15><12> SB: 
5256 025312 042522 051523 021040 sae 
6257 025320 047503 052116 047111 a 
6258 025326 042525. 020042 047524 =e 
6259 025334 051440 040524 052122 ~ 
6260 025342 052040 051505 044524 = 
6261 025350 043516 005015 000 | = 
6262 025355 015 052012 050131 INMSGA: .ASCIZ <15><12>"TYPE LINE SELECTION PARAME TER'<15><12> SE 
6263 025362 020105 044514 042516 - 
025370 051440 046105 041505 


025404 
6267 025412 051105 005015 000 
6269 025417 015 pee ie 050131 vCwc: -ASCIZ <15><12>"TYPE NO. OF ADDRESSES (OCTAL) BETWEEN VECTORS (10 OR 20)'<15><1 


6270 025424 020105 047516 020056 =cit 
6271 025432 043117 042104 zr 
6272 025440 042522 051523 051505 ro 
6273 025446 024040 04 040524 dah 
6274 625454 024514 052105 <+ 





6277 025476 02404 047440 2-4 
6278 025504 020122 030062 +4 


6280 025514 005015 044104 021440 STMSG1: .ASCIZ <15><12>'"DH # STATISTICS:' 
6281 025522 020040 051440 040524 
6282 esaree 044524 eg 041511 


Paes 015 a 051505 STMSG2: .ASCIZ <15><12>"TESTING LINE # '<15><12> 


000012 
eo ops 04251€ STMSG3: .ASCIZ <15><12>"LINE # WAS DRGPPED'<15><i2> 


000 
6293 sera, 01 oohe. § 047111 STMSG4: .ASCIZ <15><12>"LINE # RTOTAL XTOTAL DATERR PARERR FRMERR OVRERR*<15><12> 


6300 025670 043040 2 
63501 025676 020122 047440 051126 
0257 000012 
6303 sMESSAGES USED BY THE AUTOSIZER. 


6304 025712 047516 042040 030510 MSGI: .ASCIZ /NO DH11'S WERE FOUND/<15><12> 
ere 025720 023461 pq ahe 042527 


cececeeeeece f2CCCE CL CCLS 


025734 005015 000 Sw 
025741 116 020117 044104 MSG2: .ASCIZ /NO DH RECEIVER INTERRUPT OCCURRED/<15><12> 


G 11 





CZDHN=D MACY1?1 30A(1052) 27=DEC-78 15:31 PAGE 137 | 
CZDHND .P11 27=DEC-78 15:28 MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS SEQ 0136 

6309 025746 051040 041505 044505 

6310 025754 042526 020122 047111 

6311 025762 042524 051122 050125 

6312 025770 020124 041517 052503 

6313 025776 051122 042105 005015 

6314 026004 

6315 026005 11 020117 046504 MSG3: -ASCIZ /NO DM11-BB INTERRUPT OCCURRED. /<15><12> 

6316 026012 030461 041055 020102 

6317 026020 047111 042524 051122 

6318 026026 050125 020124 041517 

6319 026034 052503 051122 042105 

€320 026042 56 000012 

6321 026046 C20040 000040 SPACE: .ASC]Z / / 

6322 026052 005015 044104 030461 DEVMAP: .ASCII <15><12>/DH11, DM11-8B DEVICE MAP: /<15><12> 

6323 026060 020054 046504 030461 

6324 02 041055 020102 042504 

6325 026074 044526 042503 046440 ; 

6326 026102 050101 2 01 Th 

6327 026107 015 042012 030510 ASCII <15><12>/DH11  =DH11) = DM71-BBoDM117-BB/ TH 

6328 026114 020061 020040 044104 THN 

6329 026122 030461 020040 042040 TIN 

6330 026130 030515 026461 041102 TI! 

63531 026136 020040 2040 030515 ait 

6332 026144 026461 041102 Tl 

6333 026150 005015 042101 051522 -ASCIZ <15><12>/ADRS ~——-VECT ADRS VECT/<15><12><15><12> Tl 

6334 026156 020040 053040 041505 Tl 

6335 026164 020124 020040 040440 Tk\ 

6336 026172 057104 020123 026040 TP\ 

63537 026 C20040 053040 041505 TR) 

6338 026206 524 00641 12 TR’ 

tan sMESSAGES FOR INPUTTING PARAMETERS TO ECHO TESTS TS) 
YF 

6341 026214 020040 006440 000012 EC: SMSC IZ. *: | *<749>e12> oe 

6342 026222 (00040 EC2: mere 

63435 026224 020040 (05015 0 EC3: ~ASCIZ ° '<15><12> 

6344 026231 O15 051412 047111 ECMSG1: .ASCIZ <15><12>"SINGLE LINE ECHO TEST — CONNECT TERMINAL TO DH171 TEST LINE*<15> 

6345 026236 046107 020105 044514 

6346 026244 042516 042440 04410 

6347 026252 020117 042524 052123 

6348 0262 026440 041440 047117 

6349 026266 042516 052193 052040 TYF 

6350 026274 051105 044515 040516 TYF 

6351 026302 020174 047524 042040 TYE 

6352 026310 030510 020061 042524 

63535 024316 052123 046040 047111 VCF 

omer 026524 006505 000012 VCF 

Lo} VC 

6356 xSP 

6357 026330 005015 054524 042520 ECMSGZ: .ASCiZ <15><12>"TYPE LINE # (00 = 17 OCTAL)' xSP 

6358 026336 6040 047111 020105 XSF 

6359 026344 020043 030050 020060 XSF 

6360 026352 920055 033461 030040 KIC 

oan 026360 052103 046101 000051 SAF 
SAS 

63635 026366 005015 042524 052123 ECMSG3: .ASCIZ <15><12>"TESTING LINE # = GO TYPE IN ON TEST LINE'<15><12> $Al 

6364 026374 047111 620107 046514 $AT 


Wah: 


H 11 
27-DEC=78 15:31 PAGE 138 
28 SEQ 0157 


CZDHN=D MACY? 1 goat ioe) 
CZ2D MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 


HND 11 27-DEC-78 15: 


7 
6412 


PRARRERA 
COOWONAURW 


026701 
026706 
026714 
026722 


026762 
026767 


027924 
027025 


021440 


055015 
052012 


040440 


020051 


044412 


020040 


051105 
054440 


~ 047101 


041505 
020122 
020104 


040526 


040510 
043516 


026066 
051117 
020077 


053116 


ECMSG4: 


LPMSG: 


XSMSG1: 


XSMSG2: 


RSMSG1: 


RSMSG2: 


CLMSG1: 


CLMSG2: 


ASCIZ 


ASCIZ 


-ASCIZ 


ASCTIZ 


eASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


<15><12>"TYPE: CCONTRGL=C( TO EXIT] CCONTROL-E TO ECHO BUFFERI'<15><12> 


<15><12>"DO YOU WANT TO CHANGE 'LPR'' (Y OR N) ? ' 


<15><12>"TRANSMITTER SPEED ?° 


<15><12>" INVALID XMIT SPEED - TRY AGAIN'<15><12> 


(<15><12>"RECEIVER SPEED ?° 


<15><12>" INVALID RCVR SPEED - TRY AGAIN'<15><12> 


<15><12>"CHAR LENGTH (6, 7, OR 8) ? ' 


<15><12>" INVALID CHAR LENGTH = TRY AGAIN'<15><12> 





Deo MACY] pont 0s). 
CZDHND P11 27=DEC-78 1 


027032 


02 
027070 
027071 


027126 
027% 30 
0 


0 

027174 
027176 
027204 


0 
027242 


027244 


027324 
027331 
0273356 


027446 


042111 


024462 


047111 


044501 


040520 
051440 
044524 
026105 
051117 
024476 


scoae 76 
5:28 


041440 


11 005015 


027117 


037440 


040526 


037440 


040526 


046111 
044103 
042524 

000 


046111 
047503 
00077 


047522 


152 


31 PAGE 1 


39 
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MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 


SBMSG1: 


PBMSG1: 


PBMSG2: 


FILC1: 


FILC2: 


SNMSG1: 


SNMSG2: 





ASCI2Z 


>: ASCIZ 


ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


ASCIZ 


<15><12>"NO. OF STOP BITS (1 OR 2) ? '' 


<15><12>"INVALID NO. STOP BITS = TRY AGAIN'<15><12> 


é 


<15><12>"PARITY SELECTION (E, 0, OR <CR>) ? ° 


<15><12>"INVALID PARITY = TRY AGAIN'<15><12> 


<15><12>"FILLER CHARACTER ? ' 
<15><12>"FILLER COUNT ?' 
<15><12>"SEND MODE -(Y OR N) ' 


<15><12>"TYPE SEND BUFFER = TERMINATE WITH CONTROL-C'<15><12> 


SEQ 0138 


$PA 


BPSSSSSSSESILS 
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CZDHND P11 28 MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS 


27=DEC-78 15: StQ 0139 


027454 


2 
027520 


026514 


006503 


024516 


900012 
ES 


020077 


SNMSG3: .ASCIZ 


<15><12>'"CHANGE PARAMETERS (Y OR N)? ' 
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27~DEC~78 
27=DEC-78 15:28 


SEQ 0140 


6485 


027521 


000020 


$2819) 


030465 
053116 


042520 
046107 
052123 
020122 


050131 


026514 


sMESSAGES FO INPUTTING PATTERNS TEST PARAMETERS 
b -ASCIZ <15><12>"DATA PATTERNS TESTS = CONNECT TEST JUMPER'<15><12> 


PMSG1: 


DPMSG2: 


DPMSG3: 


DPMSG4: 


DPMSGS5: 


DPMSG6: 


DPMSG7: 


DPMSGA: 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 


<15><12>"BUFFER SIZE ? (1 = 512)! 


<15><12>"INVALID SIZE - TRY AGAIN'<15><12> 


<15><12>"PATTERN TYPE ? (A.U,D.R.S,B OR <CR>) *<15><12> 


<15><12>"SET SRO7=1 TO LOCK ON PATTERN'<15><12> 


<15><12>" INVALID PATTERN - TRY AGAIN'<15><12> 


<15><12>"TYPE SINGLE TEST CHAR '<15><12> 


<15><12>"TYPE IN TEST BUFFER = TERMINATE WITH CONTROL-C°<15><12> 


~-EVEN 
sERROR STATISTICS TABLES 


RTOTAL: 


-BLKW 


16. TOTAL CHARS RCVD PER LINE 
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CZDHND P11 


27=DEC-78 15:28 MISCELANEOUS TABLES AND MESSAGE AND DATA BUFFERS SEQ 0141 s 
6541 030220 000020 XTOTAL: .BLKW 16. : TOTAL CHARS XMITTED PER : 
6542 030260 000020 DATERR: .BLKW 16. “TOTAL DATA COMPARE ERRORS PER L INE s 
6563 030320 000020 PARERR: .BLKW 16. “TOTAL PARITY ERRORS PER LINE Er 
6544 030360 000020 OVRERR: .BLKW 16. “TOTAL OVERRUN ERRORS PER LINE EF 
6545 030420 000020 FRMERR: .BLKW 16. “TOTAL FRAMING ERRORS PER LINE 
6547 :STATISTICS TABLES POINTERS oF 
6549 030460 000000 DEPTR: 0 : GE: 
6549 030460 000000 DEPTR: 0 : CONTAINS POINTERS TO STAT TABLES mM 
6551 030464 000000 ORPTR: 0 NES 
6552 030466 000000 FRPTIR: 0 “fp 
6554 030470 000000 RBFPTR: 0 :CONTAINS INPUT BUFFER POINT Rt} 
6555 030472 000000 TBFPTR: 0 CONTAINS. OUTPUT BUFFER POINTER st 
6557 SE: 
6558 :600. WORD RECEIVER INPUT BUFFER 
6560 030474 001130 RBUF: . 2. 
beet BU BLKW 600 SF: 
6562 st 
rr :600(10) BYTE TRANSMITTER OUTPUT DATA BUFFER 
6565 LEVEN =} 
6566 032754 001130 TBUF: .BLKB 600. =f 
6568 034104 000000 ENBUFS: 0 ;MARK END OF BUFFERS 4. 
6570 000001 END a 
TY 
TY 
$$ 
: $$ 
$$ 
$$ 
$$ 
$$ 
$$ 
E 
.H 
or 
°S 
"§ 
it 
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CZDHND.P11 -27=DE(-78 15:28 CROSS REFERENCE TABLE -~ USER SYMBOLS — SEQ 0142 
ABASE = 000000 2321 2362 
ACDW1 = 000000 2321 2364 ‘ 
ACDWe = 000000 2301 2365 4 
ACPUOP= 000000 2321 2336 : 
ADDWO = 000000 2301 2366 . 
ADDW1 = 000000 2301 2367 7 
ADDW10= 000000 2301 = 
ADDW11= 000000 2301 ¢- 
12= 000000 2321 C 
ADDWi 3= 000000 2321 ¢ 
ADDW14= 000000 2301 ‘- 
ADDW15= 000000 2321 7 
Dw2 = 000000 2321 2368 “€: 
ADDW3 = 000000 2321 2369 $: 
DWw4 = 000000 2301 + 
ADDWS = 000000 2301 ct 
ADDW6 = 000000 2321 zt 
ADDW? = 000000 2321 2 
ADDW8 = 900000 2321 2 
ADDW9 = 000000 2321 ¢ 
ADEVCT= 000000 2321 2327 z | 
ADEVM = 000000 2321 2363 | 
ADPTR 022322 2629*  2636% 2644 3031* 58834 ' 
ADRVEC 022134 2612 9 4871* ‘58114 
= 000000 2321 2332 
= 000000 2321 2333 
AFATAL= 000000 2321 2324 
= 000000 2321 9 , 
AMADR2= 000000 2321 2353 
AMADR3= 000000 2321 2356 , 
AMADR4= 000000 2321 2359 4 
AMAMS1= 000000 2321 2343 : 
AMAMS2= 000000 2321 2351 : 
AMAMS3= 000000 2321 2354 
= 000000 2321 2357 
= 000000 2321 2329 
AMSGLG= 000000 a 
AMSGTY= 000000 2321 2323 
AMTYP?= 000000 2321 © 2344 
AMTYP2= 000000 2321 2352 
AMTYP3= 000000 2321 2355 
AMTYPG= 000000 2321 2358 
APASS = 000000 2321 2326 
= 000000 2321 
APTCSU= 000040 4119 42244 
APTENV= 000001 3870 4112, 4180 = 42228 
APTSIZ= 000200 2581 42214 
>TSPO= 000100 4114 4182 42234 
ASWREG= 000000 2321 2334 
ATESTN= 000000 2321 2325 
= 000000 2321 2328 
4USWR = 000000 2321 2335 
TOSZ 015144 2607 = 4710# 
VECT1= 000000 2321 2360 
AVECT2= 000000 2321 


2361 
= 000012 2699* 2770 2774 2778 53154* 3204* 3513* 3578 3582 3586 53263* 5624# 
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BCR = 000010 ¢783 2793 2797 3150* 3178* 3189x 3200* 3597 3601 3605 4652* 5260*  5282« 

BEGIN 001576 2143 25384 

BEGINA 001614 25424 3049 3264 4926 4931 

BITO = 000001 C242H# 2605 610 2838 4934 4945 4964 4973 5007 5045 

BITOO = 000001 2252H 2242 

BITO1 = 000002 22314 2241 

BITO2 = 000004 22304 2240 

BITOS = 000010 C2298 2239 

BI1T04 = 000020 2c8H 2238 

BITOS = 000040 2227k 2237 

BI706 = 000100 C26H = =2236 3110 3163 3170 

BITO? = 000200 22254 2235 2867 3664 

BITO8 = 000400 22248 2234 

BITO9 = 001000 C2235 2233 3817 3881 

BIT1 = 2 22414 2909 4872 

BIT10 = 002000 2222k 82732 3540 

BIT11 = 000 22214 2711 2726 2737 2755 2775 2794 2847 2866 2884 3101 3130 3523 
232 3545 3563 3583 3602 3644 3663 3681 3824 4620 5256 

BIT12 = 010000 22204 

BIT13 = 020000 2219# 3138 3153 3203 3865 

BIT14 = 040000 22184 2842 39 3799 

BIT15 = 100000 2217# 2756 2935 138 3564 3714 

BIT2 = 000004 22404 

BITS = 000010 2259H 

BIT4 = 000020 22384 

BITS = 000040 2237# 

BIT6 = 000100 22564 

BIT? = 000200 22554 

BIT8 = 000400 22344 4981 

BIT9 = 001000 22354 

R = 000014 56254 

BPTVEC= 000014 22494 

BRLVL 021710 2631 57204 

BRPTR 22526 2651*  2638* 2646 30335* 58854 

BUSER 016754 2596 50674 

CAR = 2808 2817 3151* 3201* 3616 3625 46335* 5261* 56224 

CEXIT 022536 3097* 3123 3157* 58914 ; 

C 1644 4941 49894 

CHKVCT 016612 4952 5027# 

CHPST 021420 2700 3119 3514 5074 9084 5248 55874 

CHPS2 021434 2736 2754 2773 2792 2815 2845 2865 2883 3096 3544 3562 3581 3600 
3623 3642 3660 3680 4621 55954 

CHRCNT 021574 2687* 2809 2831 904 5220 3288*  3498* 3617 4628 4632 3162* 5165* 5182 
5508 5518 5530 5542 5559 56654 

CKER 004076 2727 29174 : 

CKE 010566 35335 37064 

CKRST1 014560 4586 46014 

CKRST2 014610 46094 5075 5085 - 

CKSWR = 104407 3297 3797 3857 3880. 45444 

LALL 021402 5507 5517 5529 5541 5558 55798 

CLMSG1 026767 5382 641354 

CLMSG2 027025 5406 64204 

CLMSK 2362 3715 5569* 5573* 59014 

CLSEL 021576 2688* 5155* 156 5161* 5164 56674 

CLSTAT 017130 2658 51164 





CZ7DHN=D MACY11 30A(1052) 
CZDHND.P11 


000015 
000200 
021570 


022342 


030260 
022344 
- 177570 

60 


022576 
021514 
021750 

1606 


15:31 


6 
65044 


B 12 
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CROSS REFERENCE TABLE == USER SYMBOLS 


2524 


4601 


58134 


35120 
5038* 
5047 
2433 


61214 


4609 


5042* 
57584 
59244 


4921* 


5262 
5429* 


3374s 


3452 - 


54.24% 


2456 
5000* 


56294 


4958 


5290* 
54 36* 


3384* 
3455 


3426* 


5002 


5297* 
5444 


3387* 
3456* 


3525 


2477 
5255 


5040 


SEQ 0144 


5309* 
545/7* 


3388 
5463* 


58944 


2484 
56284 


589. # 
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CZDHND .P11 27=DEC-78 15: CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0145 
DPMSG5 027740 3314 65114 
DPMSG6 030002 3345 65174 
DPMSG7 030042 3435 65234 
DRPLIN 021530 2661* 2721* 2748 2767* 2786* 2805*% 2825% 28578 28778 28942 2997 56344 
WR = 177570 21634 2284 2568 
022560 2392 2399 2406 2413 2420 2427 2434 59334 
DT10 024614 532 61924 
DT2 2441 2448 60274 
DT3 023540 2455 60544 
DT4 023554 2462 60594 
OTS 023700 2469 2476 60804 
DT6 024074 2483 61084 
DT7 024224 2490 2497 2504 2511 2518 2525 61294 
EC 026214 63414 
ECBUF 022366 3176 3177" 3185* 3186* 3198% 3201 5272 5273" 59034 
ECHO 004672 2145 30464 4607 4615 
ECHOT 004714 2618 30514 
ECHO2 004740 30594 3133 3254 3272 4957 
ECHOS 005110 3089 3091 30964 
ECMSG1 026231 3054 63444 
ECMS 0263350 3060 63574 
ECMSG3 026566 3114 3116 63634 
ECMSGS 026445 3118 63724 
EC2 026222 3077*  3084* 3086 3088 3090 3092 3214* 3216 3236* 3243* 32645 3248 3250 
3252 3299* 3308* 3310 3315 5432% 3441% 3443 3446 3469* 3471 5346* 5353 
5355 5358 5360 5362 5580* 5388* 5390 5392 5394* 5395 5399 5403 5413* 
5420* 5422 5424 9426* 5427 5431 5441* 5449% 5451 5453 5455 5459 5470* 
5479* 5481 5484 5486 63424 
026224 3492* 3493* 3495 63434 
EMTVEC= 000030 2252H 2553% 2554* 
M 022434 2390 2744 3552 59174 
EM10 23227 2459 2890 3687 
EM11 2446 2950 7 60334 
EM12 023432 - 2455 2718 60404 
EM14 2467 6 
EM15 023714 2474 60854 
EM16 023742 2481 60924 
EM17 024112 2488 63154 
EM2 022606 2397 2765 3571 59424 
EM20 024240 2495 61344 
EM21 4302 2502 61434 
EM22 024 346 2509 61524 
EM23 024404 2516 61604 
EM24 024442 2525 6 
EM25 024501 2530 61784 
022665 2404 2782 3590 59544 
EM4 022745 2411 2801 3609 59664 
EMS 023022 2418 2821 3629 5977 
EM6 023104 2425 2853 3659 59894 
EM7 023153 2432 2873 3670 5999" 
ENBUF S 5581 65684 
ENDA 004602 2676 3024 30274 3038 
ERRVEC= 000004 2245H 2566 2567* 2578% 2596 2597 3804 3805= 3807"  3810* 
EXFLAG 022364 3098* 3139 3141 3143 3147* 3161 5179* 3190" 59024 6108 
EXP 016442 4982 49 


AR 864 
EXPAT 006072 2146 32614 4606 4614 
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EXPAT] 006114 2621 3266s 
EXPAT2 006140 32724 4960 
EXPATS 006244 3297H# 3346 «= 3364 3382-3400) 3418 = 3430 3461 S350 Ss 3530S 3557S 3576 ~—S8595 
3614 3634 3655S 3675s 3692 
FILC] 027303 5473 = 644584 
FILC2 027331 5494 64634 
FILLA 022430 3227 3484 5275. 5276) S5471* «5487* 59064 
FILLB 022432 3226 «= 3482S $271 S279 Ss «5492% 5503* 59074 
FRMERR 030420 2922 = 3019s 5454 | 
FRPTR 0 2922% 2928% 29778 65524 
GNS = weeeee 2137 536. 4537, 4538 = 4539 4540 = 45424544 4545. 454645474548 
GTSWR = 104406 2592 = 4542 
HT = 11 2155# 4127 4168 
INCL 020364 5371 53804 5407 
INFCHR 020766 5374 54708 
INFCNT 021056 5375 = 54924 
INMSGA 025355 4976 62624 
INMSG1 024726 4937 2134 
INMSG2 024772 4948 62194 
INMSG3 025041 4967 6226# 
INMSG4 025112 5024 62334 
INMSGS 025163 5062 62404 
INMSG6 025237 62484 
INMSG7 025305 4984  6255# 
INPAR 016216 2627 056 3270 49334 
INPARA 016112 2614 4910# 4919 
INPARC 016172 2144 4927# 
INPARX 016160 2141 49254 
INPART 016252 4940 49444 
INPAR3 016 2626 44951 = 49554 
INPARG 016370 4970  4972# 
INPB 020646 5373 5441H = 5465 
INRSP 020110 53164 5370 
INSB 020530 5372 3 554134 = 5435 
INXSP 017774 52874 5369 
IOTVEC= 20 2250H 2551* 2552% 4785 4786" 4827% 4853 
KYBD1 017514 659 52244 
KYBD2 017540 5224 5232# 
LDFILL 017720 3195 = 52718 
LF = 000012 21564 4162 4168 | 
LINE 022144 2662* 2679 2712 2717 2738 2743 2757 2762 2781 2800 2820 2833 2869 
2852 = 2868 «= 2872 2889 = 2906 «Ss 2923 = 2933 2949 = 3062* «= 3063 3064 «= 3108~S—s«313 
3546 8635551 §=63565 = 3570S 3589 «= 3608 «= 3628 «= 3646 3649S 3665 36692 36BKSCiC3 7771? 
3728 3798* 4626 4646  4648* 4650x 4652 4653 4661* 5257 5816 6108 6129 
LINMSK 021526 2699 2721 2748 2767 2786 805 2825 2857 2877 2894 2986* 2997 3010 
3023* 3066*  3069* 3154 3204 513. 4649s = 4655" 4657 §263—s«S6 33a 
LINSEL 021524 3010 4657 49728 %4980« 56324 
LPMSG 026536 5348 63824 
LPR = 3111* 4631*% 5262* 56214 
LPRIN 020224 3071 3464 5363 
LPRPTR 021572 2683* 5131 5133 5141* 5664m 
LPRTAB 021536 2683 6484 
1 025712 4769 6 304M 
SG2 025741 4809 63034 
MSGS 02 4838 63154 
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CZDHN~D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 149 


CZDHND.P11 27=DEC=-78 15:28 CROSS REFERENCE TABLE -- USER SYMBOLS SFQ 0147 
NEWCL 002644 26914 2696 
NEWLIN 002544 26714 2686 2723 2749 2768 2787 2806 2826 2858 2878 2895 
NEWLPR 002616 C6854 2692 
NEWPAR 002656 26954 2728 
NRC = 900002 2880 3171 3677 56204 
ORPTR 030464 2921* 2927* 2974% 65514 
OVRERR 030360 2921 3018 65444 
PARBIT 021600 2693* 5201 5205* 5207 5208 5210* 5212 5214* 5216 5218* 56684 
PARERR 030320 2920 3017 65434 
PATFLG 022346 3298* 3317* 3359 3377 3395 3413 58954 
PATLIM 022354 3352 3370 3388 3406 3452 3501 58984 
PBMSG1 027176 5443 64434 
PBMSG2 027244 5464 64514 
PEPTR 030462 2920* 2926* 2980* 65504 
PIRQ = 177772 21624 
PIRQVE= 000240 22564 
PRSTAT 004412 2677 29864 5249 
PRO = 21794 
PRI = 0 21804 
PR2 = 100 21814 
PRS = 000140 21824 
PRA = 200 21834 
PRS = 000240 21844 
PR6 = 300 21854 
PR7 = 340 21864 
PS = 177776 21594 2160 4801* 4831* 
PSW = 177776 21604 
PTWAIT 007520 35164 
PWRVEC= 000024 22514 2557* 2558% 4553* 6554% 64563* 4569 4581*% 4582s 
QUICK 021532 2660* 5138* 5140* 5158 5203 56364 
QUICKX 34 2690* 5153 5160* 56384 
022356 5544* 5546 5547* 5548* 5551 58994 
RANB 022360 5546* 5548 5549* 59004 
RBFEND 021604 2902 2962 3696 3699 3737 3740 4627* 4630* 56714 
RBFPTR 0350470 2885* 2886 2900* 2901* 2902 2917* 2936 2942 2961* 2962 3682+ 3683 3694* 
3695* 3696 3698* 3699 3706* 3716 3722 3736* 53737 3739* 3740 4626* 65544 

RBUF 03047 2885 2917 3682 3706 4626 4627 65604 
RDCHR = 104410 3080 3212 3239 3303 3436 3467 4339 45454 5349 5384 5416 5445 5475 
RDDEC = 104413 3276 45484 5291 5320 
RDLIN = 104411 4411 4 45464 
RDOCT = 104412 3061 45474 64912 4938 4949 4968 4977 5495 
RDONE 021602 2705 2838*  2909* 3518 3701* 4625* 56708 6054 
RESERR 017016 2598 50774 
RESTRP 017060 50 
RESTRT 002344 26354 2643 
REST1 002402 26414 4613 
RESVEC= 000010 22464 2598% 2599 
RETFLG 022352 2541* 2616 3046* 3262* 4603 4611 4922* 4930* 4955 4998 5036 S897# 
RINT? 003534 2664 28424 
RINT2 005462 3103 31704 
RINTS 010252 3292 36394 

G1 026701 5317 64014 
RSMSG2 026724 $334 64064 
RSPTAB 022236 5318 5331 58544 
RSPTR 022234 §318* 5323 $325* 5326 $330* . $333 58524 
RSTRTA 002412 2640 26444 3039 4605 
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RTOTAL 030160 2714 2908* 3014 5116 5118 65404 

SAPS 021450 56034 | 

SBMSG1 027071 5415 64284 

SBMSG2 027130 5434 64354 

SEL INE 14736 2671 46464 

SELMSK 021520 2633* 639 2641* 3034* 3037 56304 

SENDP1 5704 3094 32094 3249 3251 

SENDP2 017642 3235 52554 

SETCL 017232 2691 $1534 

SETLPR 017146 2685 51314 

SETPAR 017372 2695 52014 

SINGLE 022350 3440* 3448* 3468* 3469 34753 3479 3483 3489 5561 58964 

SNMSG1 027352 3079 64664 

SNMSG2 027402 3210 64704 

SNMSG3 027462 3238 64784 

SOF T 352 2958 29724 

SPACE 026046 4890 4895 63214 

SSR 16 56264 

STACK = 001100 21504 2549 2722 5070 5080 5247 

START? 002122 25964 

START2 0023 2623 26294 2642 3778 4986 

STDH1 002466 26584 

STKLMT= 177774 21614 

STMSG1 025514 2991 2993 62804 

STMSG2 025541 2680 2682 62844 

STMSG3 025566 3003 3005 62884 

STMSG4 025617 2995 62934 

SUBUF1 017332 5166 51774 i 

SUCLMK 021346 3273 55684 

SUERT 015122 eal oie 2779 2798 2818 2850 2870 3549 3568 3587 3606 3626 3647 

SUER2 015116 2887 2947 3684 3726 47004 ; 

SUNUM 015036 2647 2678 2716 2742 2761 2780 2799 2819 2857 2871 2888 2948 2988 
3001 3112 3550 3569 3588 3607 3627 3648 3668 3685 3727 46754 

SUPATA 021130 3349 55074 

SUPATD 1206 3385 55294 

SUPATR 021240 3403 55414 

SUPATS 027320 3449 555 

SUPATU 021156 3367 2=— 55174 : 

SwR 001140 22844 2567 2568* 2570 2576* 2583* 2590 2605 2610 3362 3380 3398 3416 
3428 3459 3508 3799 3817 3824 3865 3877 3881 4235 4272* 46561 4574+ 
4872 4934 4945 4964 4973 4981 $007 5045 5134 5236 

SWREG 000176 21394 2576 2590 4235 4248 5236 

SWO = 000001 22144 

SwOO = 000001 22044 2214 

SwO1 = 000002 22034 2213 

SWO2 = 000004 22024 82212 

SwWwO3 = 000010 22014 2211 

SWO4 = 000020 22004 2210 

SWOS = 000040 21994 2209 

SWO6 = 00C100 21984 2208 

SWO7 = 000200 21974 2207 

SWO8 = 000400 21 2206 

SWO9 = 001900 21954 2205 

a 2 22134 

SW10 = 002000 21944 
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3W171 = 004000 219354 
SWi2 = 010000 21924 
SW13 = 020000 21914 
SW14 = 040000 21904 
SW15 = 100000 21894 
SWw2 = 000004 C2124 
SW3 = 000010 22114 
SW4 = 000020 22104 
SWS = 000040 22094 
SW6 = 000100 22084 
SW7 == 090200 22074 
SW8 = 000400 22064 
SW9 == 001 22054 
TBFPTR 030472 2918* 2930 2943 296C* 3707* 3709 3723 3735* 6555¢ 
TBITVE= 000014 22478 
TBUF 032754 2811 2918 2945 3109 3145 3148 3151 3160 3211 3466 3476 3496 3619 
3707 3725 4633 5183 5258 5261 5509 5519 5531 $543 5560 5579 65664 
TIMEA 022332 2703* 3121* 3152% 3162*  3202% 3516* 5107* 5888# 
TIMEB 022334 2704% 2122% %3517% ##$5105% 58894 
TIMEIT 017106 2707 3125 3520 51054 
TINT1 303 2667 2732A 
TINT2 005314 3106 31384 
TINTS 76 3295 35404 
TITFLG 022330 2542 600 2604* 58878 
TITLE 024632 2603 62024 
TITLE2 024701 2649 2651 62094 
TKVEC = 000060 22544 
TPVEC = 22554 
TRAPVE= 000034 22534 2555* 2556 
TRTVEC= 000014 22484 
TST1 002456 26564 
TYPDS = 104405 3767 3933 45404 
TYPE = 104401 2602 2650 2681 2992 2994 3004 3053 3059 3078 3085 3175 3117 3209 
3215 3237 3244 3268 3274 3282 3301 3309 3313 3344 3434 3442 3464 
3470 3494 3765 3768 3868 3897 3914 3916 3919 -3921 3936 3941 4065 
4080 4132 4246 4247 4250 4263 42764 4293 4346 4352 4357 4361 4366 
4367 4369 4372 4376 £440 4442 4501 4503 45364 4583 4769 4809 4838 
4874 4890 4895 4900 904 4910 4936 4947 966 4975 4983 5023 5061 
$243 5287 5304 5316 5333 5347 $354 5381 5389 5405 5414 $421 5433 
5442 5450 5463 5472 5480 5493 
TYPOC = 104402 905 3929 4249 45374 
TYPON = 104404 45394 
TYPOS = 104403 45384 4883 4887 4892 4897 
m 340 2946 29678 
VCFLG 021706 2539* 2608 2615* 3048* 3263* 64925* 4928* 57134 
VCPTR 022324 2630* 2637* 2645 3032* 583844 
VCwWC 025417 4911 62694 
XSMSG1 02661 5288 63894 
266 5305 63944 
XSPTAB 022150 5289 5302 58264 
XSPTR 022146 5289* 5294 $296* 5297 5301* 5302 58244 
XTOTAL 03022 2715 2835* 3015 65414 
T 2118 21244 
SASTAT= «eevee 4202 4217 
S$ATYC 012650 4173 41754 
$ATYT 012624 41714 


H 12 





CZDHN=D MACY11 30A(1052) 27={DEC=78 15:31 PAGE 152 
CZ7DHND.P11 27=DEC=78 15:28 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0150 
BATYS § 012632 4117 417248 
SATY4 0126462 3873 41744 
SAUTOB 001134 2281% 2594* 64243 4392 $238 
SBASE 001306 23624 
$BDADR 001122 22764 
S$BDDAT 001126 22784 
$(DwW1 001312 23644 
$CDW2 38001314 23654 
SCHARC (112620 4134* 4144" 4151 4160* 41654 
SCKSWR 013072 42354 4544 
SCMTAG 001100 22644 2544 2545 2553 2559 2560 
$CM1 = 000010 CO96H = 97H — 2 298H = 299K = 23300 §=— «2 3301H# = 2302K «= «2 303K Ss 23044 
$CM2 = 000020 C296H = 2297H# = 2 298H = 99H = 23300 «= 2 3301H# = 3024 «= 808K) 23044 
$CM35 = 000010 2294H §=92296 
$CM4 = 000010 25044 23054 23064 23074 23084 2309 23104 23114 23124 
SLNTLG 013745 4246 43874 5243 
SCNTLU 013740 4263 4361 43864 

C 001260 23364 
SCRLF 001227 23154 $868 3889 3897 3916 3921 3941 4133 4168 4274 4366 438é 4445 

4505 4901 4904 

SDBLK 012332 4046 4080 40884 
$0DwWC 3=—001 316 2 3664 
$DDw1 001320 23674 
$DDW2 001322 2 3684 
SDDW3 001324 2 3694 
SDEVCT 001242 23278 
SDEVM 00131 23634 
SDHSEL 022136 4779* 4961 5011 5049 58124 
$DOA 611052 3761 3770 37768 
SDTBL 0123522 4049 40844 

NDAD 011042 37724 
SENDCT 011010 37634 

NOMG 011061 3765 37804 
SFNULL 011056 3768 37794 : 

NV 1252 2332 2588 2674 3870 4112 4180 4204 
SENVM 001253 23334 2581 4114 4119 4182 

oP 010754 3029* 3036 37534 
SEOPCT 011002 37604 3764 y 
SERFLG 001103 22674 3788 3813 3815 3821* 7843 3858* 3889 

001115 227354 =—2561* 3815 3838* 3843 

SERROR 011342 2553 38564 
SERRPC 001116 C2744 = 3862* 3863* 3864 3889 3903 $933 6027 6054 6080 6108 6129 6192 
SERRTB 001326 23 3911 
SERRTY 011514 3867 38 
SERTTL 001112 22714  3861* 72889 
SESCAP. 001224 231 2560*  3837* 3884 3886 3889 
SETABL 0061252 23314 
SETEND 001326 130 23704 
SFATAL 001234 23244 4208+ 
SFFLG 0613070 4171* 4174+ 6202 4211* 62194 
SFILLC 001756 22924 4137 4168 
SFILLS 001155 22914 4168 
$GDADR 001120 22754 
SGDDAT 001724 22774 
$GET42 011032 37694 
$GTSWR 013142 42474 6562 5244 


CZDHN=D MACY11 30A(1052) 
27=DEC=78 15:2 


C2DHND .P 71 


sty +489 
NOf}uwir 


00 
32 


27=DE(-78 15:31 
8 
2089 2090 
21254 
4433* 44444 
22684 3828+ 3829 
4553 4569 45884 
22824 4275 4392 
C272H =—3864* 3872 
3164 3889 4168 
4212* 42184 
2269% 2562* 2652 
C270H = =—2563* 2719 
3131* 3357% 3375 
3651*  3671* 3688 
23494 
23534 
23564 
23594 
2126 2130 23224 
23434 
23514 
23544 
23574 
21264 
4172* 4178 4213* 
4250 43904 
23298 4188* 4191 
23304 4193* 
23234 186 4194* 
4267 43884 
23444 
23524 
23554 
23584 
3832 38424 
22904 139 4168 
26534 
3977* 4006* 40194 
3972* 3976* 3981 
00 3820 3830 
23264 °2580* 3757 
21284 
4584 45914 
45864 
2557 45534 4581 
45844 
4563 45694 
23144 3889 4168 
43064 4545 
44594 4548 
43344 4546 
44064 4547 
43274 
22964 
22 33555%* 3373 
C297H# = =—3128* 3525« 
22984 4702* 5069 


PAGE 
CROSS REFERENCE TABLE -- USER SYMBOLS 


153 


3831* 


2580 


4217 


4206 


4293 


3591* 
4701* 
5079* 


2588 


4270* 


3995* 
3766 


4369 


3409 
5068* 
5933 
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5834 


40214 
3779 


4386 


3870 


3826 


4442 


3504* 
5933 
6080 


2822* 2854*  2874« 
5526* 3553* 3572s 
3883 5071*  5081* 
4112 

3845 

4445 4503 4505 
3524 4700* 6027 
6027 6080 6108 


2891* 
3591* 


6129 
6192 


2951* 
3610* 


6192 


SEQ 0151 


5020* 
3630* 


CZDHN=D MACY11 30A(1052) 


CZDHND P11 


SCOPE 


$SC 
$SE TUP= 
SSTUP = 


SSVLAD 
SSVPC 
SSwWR 


SSWREG 


SSWRMK = 


00117C 
0 


keene 
anther 
014546 
011076 
000117 


177777 
011270 
000000 
165000 


001254 
000000 


27-DEC=78 15:31 PAGE 154 
5:28 
2299 4703* 5933 6027 
23008 4704* 5933 6027 
23014 
23024 5067* 5077* 6080 
23034 
77 
4549 
4549 
4562* 4570 4571* 4572* 
$51 37964 4853 : 
25434 2550 2551 2553 
3880 3888 4230 4392 
25434 
3808 38334 
21034 2108 
20764 2089 2094 2095 
2562 2563 2657 3750 
3799 3811 3813 3814 
3851 3852 3861 3865 
23344 2583 
3793 
23254  3834* 4653 
23128 2559% 2657  3756* 
22874 4228 4239 4256 
22864 4228 4237 4253 
23044 2714* 2880* 2900 
3677* 3694 $273 $274 
23054 2715* 3016% 6054 
23064 3015* 6059 
23074 3016* 6059 
23084 3017* 6059 
23094 3018* 6059 
23104 3019* 6059 
23114 2940* 2955 2972* 
20894 2653 26574 
22894 4157* 4168 
2293H# 4106 4168 
22 4155 4168 
2555 45134 
45244 535 
45284 45374 45384 45394 
45494 
4518 45354 
21274 
C2664 3028* 3755* 3788 
4336 4337 4349 4367 
4541 
40344 4540 
1064 4199 4528 4536 
4136 4143 4150 41554 
4161 4163 41 
39754 537 
3974 39774 4539 
39704 538 
23284 
21294 


CROSS REFERENCE TABLE -- 


45904 
2555 


2975* 


J 12 


USER SYMBOLS 


2557 


2978* 


45414 


3834 
43854 


4279 


2559 


3000* 


4542 


3839 


2560 


3002 


45434 


3843 


2562 


3173 
6108 


3720* 


4544 


3860 


2585 


3182 


45454 


3889 


3755 


3193 


45464 


3797 


3198 


45478 


SEQ 0152 


3857 


3199 


45484 


K 12 


CZ2DKN=D MACY11 30A(1052) 27=DEC=78 15:31 PAGE 155 
CZDHND.P11  27=DEC-78 15:28 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0153 
S 001256 23354 
$VECT1 001302 23604 
$VECT2 001304 23614 
$XTSTR 011114 38024 
$$GET4= 000000 37718 
SOFILL 012113 3971* 3975* 3985 40204 
$4OCAT= eeeeee UJ 3799 3867 
= 034106 2103 = 2104H §=2106 = 21084 )9=— 2114 = 2115H = 21174 9 2119H = 21334 = 21374 = 2263" «= 2317s: 2548 
2562 2563 3779-3783, 3842 3843 3889 «= 39444 «40884 4168 }3=— 220K = 4228 


2652 
43854 4386 4392 4445 4505 4565 4589 59034 61074 61284 61914 65404 65414 
6542 65434 65444 65454 65604 65664 ; 
~SASTA= seeeen (J 4172 4175 


CZDHN=D MACY11_ 30A(1052) 
27-DEC=78 15:28 


CZDHND .P11 
COMMEN 1" 
ENDCOM Ve 
ERROR 21514 
3394 
t 5082 
ESCAPE 1# 
GE TPRi it 
TSWR 1d 
T 1M 
NEWTST 1# 
POP Ww 
PUSH 1M 
REPORT 14 
COPE 21524 
SETPRI 1M 
SETTRA 45284 
SETUP 4 
SKIP 1A 
SLASH 14 
SPACE 225 7# 
STARS lf 
3947 
5616 
SWRSU 1# 
TRMTRP 45284 
TYPBIN t 
TYPDE C 1 
TYPNAM 14 
TYPNUM 14 
TYPOCS 14 
TYPOCT 14 
TYPTXT 14 
SSCMRE © 2257# 
SSCMIM 2257 
SSESCA Gj 
SSNEWT 1# 
S$SET 45284 
$$SEIM 25 
$$SKIP 14 
-EQUA iW 
“HE if 
“KT11 ft 
“SETUP 1A 
* SWRHI 14 
“SWRLO 20778 
“$ACTI # 
:$APTB 1s 
“$APTH 1# 
“SAPTY it 
“$ASTA # 
“$CATC iw 
“$CMTA 1# 
4 
if 
-$DIV if 
: $EOP # 


27-DEC-78 


2765 
3507 


2585 
2910 
2897 
3754 


4539 
2543 


15:31 


2784 
3527 


4248 


2299 
2307 


4540 


PAGE 157 
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2803 
3554 


2300 
2308 


4542 


2259 
4298 


2301 


2309 


4544 


L ie 


WN 
W100 
wou) 
mW 


4434 
4198 


4545 


2317 
4327 


2875. 


5611 


4494 
4408 


4546 


2320 
4394 


2303 
2311 


4546 


2892 
3631 


4574 
4461 


4547 


2653 
4447 


4547 


2952 
3652 


4575 
4555 


4548 


2655 
4507 


4548 


3021 
3672 


4692 
4561 


3747 
4551 


3152 
3689 


5188 
4675 


3785 
4567 


3358 
3731 


5177 


3845 
4594 


SEQ 0154 


3376 
5072 


3891 
4596 


M12 


CZ7DHN=D MACY11 30A(1052) fire 78 15:37 PAGE 158 
CZDHND.P11 27-DEC=78 15:28 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0155 
. SERRO 14 20778 43863 
. SERRT 14 20774 3889 
- SMULT 1a 
. $POWE 1@ 20774 4549 
$RAND 14 
SRDDE 14 20774 4445 
$RDOC 1# 20774 4392 
. SREAD 14 20774 6225 
$R2AZ 14 
. SSAVE 14 

2D 14 
.$SB20 14 
$SCOP 14 20774 3783 
-SSIZE 4 
- $SUPR fj 
- STRAP 14 20774 4505 
.STYPB 14 
$TYPD 14 20774 4022 
$TYPE 1# 20774 4089 
.$TYPO 1# 20774 3945 
-840CA 14 
.1170 14 


- ABS. 034106 000 


ERRORS DETECTED: 0 


CZDHND .BIN, ere- ee Ae: TOC=CZ7DHND. SML ,CZDHND.P11 
TIME : 15 2c 1 SECONDS 

RUN-TIME RATIO: 20875905" 2 

CORE USED: 335K (65 PAGES) 


